Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
VBA - Selection d'objets dont le nom contient...
69 views
Skip to first unread message
Kinikoo
Nov 2, 2021, 3:42:38 AM11/2/21
to
Bonjour,
J'ai un fichier avec plusieurs onglets. Sur chaque onglet j'ai des images
d'illustrations et des QR Codes.
Je dois mettre à jour ces QR codes mais pour cela je dois les supprimer avant et
conserver les illustrations.
Comment faire pour sélectionner tous les QR Code et les supprimer.
Mes illustrations ont des noms qui commencent par "Image" et mes QR Code
commencent toujours par les 3 lettres "ABC"
Les noms et le nbre changent d'un onglet a l'autre.
Merci pour votre aide
J'ai un fichier avec plusieurs onglets. Sur chaque onglet j'ai des images
d'illustrations et des QR Codes.
Je dois mettre à jour ces QR codes mais pour cela je dois les supprimer avant et
conserver les illustrations.
Comment faire pour sélectionner tous les QR Code et les supprimer.
Mes illustrations ont des noms qui commencent par "Image" et mes QR Code
commencent toujours par les 3 lettres "ABC"
Les noms et le nbre changent d'un onglet a l'autre.
Merci pour votre aide
MichD
Nov 2, 2021, 9:45:13 AM11/2/21
to
Le 02/11/21 à 03:42, Kinikoo a écrit :
Bonjour,
Je suis un peu confus par ta question.
Est-ce que tes codes QR dans tes feuilles se présentent sous forme
d'images? Pour toi, tu fais la distinction entre les images représentant
un code QR d'une autre image, mais pour Excel, c'est toute la même chose.
La procédure 1 supprime toutes les images DE TOUTES LES FEUILLES
qu'elles représentent une image quelconque ou un code QR.
La procédure 2 supprime seulement les images de TOUTES LES FEUILLES dont
le nom débute par ABC
1-
'------------------------------------------
Sub SupprimeLesImagesDansToutesLesFeuilles()
'Supprime les images dans toutes les feuilles du classeur
'sans distinction de leur nom.
Dim Sh As Worksheet
Dim C As Shape
For Each Sh In Worksheets
For Each C In Sh.Shapes
If TypeName(C.OLEFormat.Object) = "Picture" Then
C.Delete
End If
Next
Next
End Sub
'------------------------------------------
2-
'------------------------------------------
Sub Supprime_Code_QR()
'Supprime toutes les Shapes débutant par ABC
Dim Sh As Worksheet
Dim C As Shape
For Each Sh In Worksheets
For Each C In Sh.Shapes
If UCase(Left(C.Name, 3)) = "ABC" Then
C.Delete
End If
Next
Next
End Sub
'------------------------------------------
MichD
Je suis un peu confus par ta question.
Est-ce que tes codes QR dans tes feuilles se présentent sous forme
d'images? Pour toi, tu fais la distinction entre les images représentant
un code QR d'une autre image, mais pour Excel, c'est toute la même chose.
La procédure 1 supprime toutes les images DE TOUTES LES FEUILLES
qu'elles représentent une image quelconque ou un code QR.
La procédure 2 supprime seulement les images de TOUTES LES FEUILLES dont
le nom débute par ABC
1-
'------------------------------------------
Sub SupprimeLesImagesDansToutesLesFeuilles()
'Supprime les images dans toutes les feuilles du classeur
'sans distinction de leur nom.
Dim Sh As Worksheet
Dim C As Shape
For Each Sh In Worksheets
For Each C In Sh.Shapes
If TypeName(C.OLEFormat.Object) = "Picture" Then
C.Delete
End If
Next
Next
End Sub
'------------------------------------------
2-
'------------------------------------------
Sub Supprime_Code_QR()
'Supprime toutes les Shapes débutant par ABC
Dim Sh As Worksheet
Dim C As Shape
For Each Sh In Worksheets
For Each C In Sh.Shapes
If UCase(Left(C.Name, 3)) = "ABC" Then
C.Delete
End If
Next
Next
End Sub
'------------------------------------------
MichD
MichD
Nov 2, 2021, 9:50:10 AM11/2/21
to
Le 02/11/21 à 09:45, MichD a écrit :
La procédure 2 supprime seulement les SHAPES de TOUTES LES FEUILLES dont
le nom débute par ABC.
MichD
> La procédure 2 supprime seulement les images de TOUTES LES FEUILLES dont
> le nom débute par ABC
C'est plus juste de lire ceci :
> le nom débute par ABC
La procédure 2 supprime seulement les SHAPES de TOUTES LES FEUILLES dont
le nom débute par ABC.
MichD
totontitus
Nov 3, 2021, 6:29:33 AM11/3/21
to
Le mardi 02 Novembre 2021 à 08:42 par Kinikoo :
Bonjour
Un fichier EXCEL complété par des explications anonymisés
mis sur https://www.cjoint.com/ permettrait aux intervenants de répondre plus
précisément à ta question.
Cordialement
Un fichier EXCEL complété par des explications anonymisés
mis sur https://www.cjoint.com/ permettrait aux intervenants de répondre plus
précisément à ta question.
Cordialement
0 new messages