Salut,
J'aurais bien quelquechose à te proposer mais c'est assez lourd en code, c'est de la bidouille en fait..... moi-même je serais interressé par la résolution de ce problème s'il existe une commande simple .
Voici quand même ma soluce :
Dim GNA as Integer
GNA = 0 (Ce compteur te donneras comme info nb cellule de ta colonne contenant des données)
Range("A1").Select (selection de la colonne)
debut:
If ActiveCell.FormulaR1C1 = " " Then (test le contenu de la cellule)
GoTo Fin (si la cellule est vide arrêt du test)
Else: GNA = GNA + 1 (si la cell n'est pas vide: incrément du compteur)
ActiveCell.Offset(1,0).Select (decalage cellule du dessous)
GoTo debut (retour au test)
End IF
Fin:
Puis tu peux utiliser le compteur dans ton code, par exemple une selection :
Range(Cells(1,1),Cells(GNA,1)).Select
Là tu auras selectionné toutes les cellules de la première colonne contenant des données ......
Voilà, je t'avais prévenue que c'était lourd....... mais c comme ça que je fais moi, à défaut d'avoir une commande plus efficace!
Bon courage et SVP AIDEZ-NOUS!!! ;-)