LeLigérien
XLDnaute Nouveau
Bien le bonjour à vous,
Je flanche sur une macro qui consiste à supprimer un groupe de colonnes et dans celle-ci il y a une image que j' ai nommé "Grafik"+ un numéro.
A chaque fois que supprime un groupe de colonne je souhaite supprimer l' image qui s'y trouve, en sachant que j'ai numéroté les image de 1 à 39.
Pour supprimer les colonnes ça fonctionne mais je n'arrive pas à incruster mes lignes de code pour effacer les images.
J'ai essayé d' insérer ça en rouge ,sans résultat :
' Suppression page vierge
Dim a, b, c, d, e As Integer
For a = 0 To 38
b = 828 - 21 * a
If Cells(16, b) <> "" Then
Else
e = 1
For d = 0 To 21
f = Grafik & e
c = b - 8
Columns(c).Delete Shift:=xlLeft
' Supprimer LesImages_Feuille_Active
Shapes.Range(Array(f)).Delete ' J'AI UN MESSAGE D'ERREUR A SE NIVEAU
e = e + 1
Next d
End If
Next a
Comme vous pouvez le constater je ne suis pas un pro de la macro
Avez vous une solution pour moi?
Merci par avance
Je flanche sur une macro qui consiste à supprimer un groupe de colonnes et dans celle-ci il y a une image que j' ai nommé "Grafik"+ un numéro.
A chaque fois que supprime un groupe de colonne je souhaite supprimer l' image qui s'y trouve, en sachant que j'ai numéroté les image de 1 à 39.
Pour supprimer les colonnes ça fonctionne mais je n'arrive pas à incruster mes lignes de code pour effacer les images.
J'ai essayé d' insérer ça en rouge ,sans résultat :
' Suppression page vierge
Dim a, b, c, d, e As Integer
For a = 0 To 38
b = 828 - 21 * a
If Cells(16, b) <> "" Then
Else
e = 1
For d = 0 To 21
f = Grafik & e
c = b - 8
Columns(c).Delete Shift:=xlLeft
' Supprimer LesImages_Feuille_Active
Shapes.Range(Array(f)).Delete ' J'AI UN MESSAGE D'ERREUR A SE NIVEAU
e = e + 1
Next d
End If
Next a
Comme vous pouvez le constater je ne suis pas un pro de la macro
Avez vous une solution pour moi?
Merci par avance