Bonjour Le Forum,
J'ai un souci avec le code suivant :
' Effacement de la colonne A les cellules A1 à A9 sont vides
If RangeIsEmpty(Range("A1:A9")) Then
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End If
Je souhaiterais effacer la totalité de la colonne A, à condition que les cellules A1 à A9 ne contiennent pas de données.
J'ai un message d'erreur qui s'affiche lors de son éxécution :
Erreur de compilation sub ou function non définie
Avez vous une idée pour résoudre le problème ?
Merci par avance,
hugues
J'ai un souci avec le code suivant :
' Effacement de la colonne A les cellules A1 à A9 sont vides
If RangeIsEmpty(Range("A1:A9")) Then
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End If
Je souhaiterais effacer la totalité de la colonne A, à condition que les cellules A1 à A9 ne contiennent pas de données.
J'ai un message d'erreur qui s'affiche lors de son éxécution :
Erreur de compilation sub ou function non définie
Avez vous une idée pour résoudre le problème ?
Merci par avance,
hugues