Suppression de la colonne A avec une condition

[Hugues]

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

 

[tototiti2008]

Re : Suppression de la colonne A avec une condition

Bonjour Hugues,

RangeIsEmpty n'existe pas

une piste :

Application.CountA(Range("A1:A9"))

renvoie le nombre de cellules contenant du texte (fonction NBVAL)

Application.Count(Range("A1:A9"))

renvoie le nombre de cellules contenant des nombres (fonction NB)

si leur somme est nulle, la plage est certainement vide
Maintenant tout dépend ce que tu appelles vide (pas de formule ?)

 

[Hugues]

Re : Suppression de la colonne A avec une condition

Merci pour l'aide
hugues