Bonjour,
J'ai un code VBA qui sélectionne une colonne de la cellule N2 à la dernière cellule remplie et qui afficher un MsgBox si une cellule est vide.
Le problème que je remarque quand je fais un pas à pas détaillé, c'est que la sélection "s'étend". C'est à dire que au départ le code sélectionne bien les cellules N2 à la dernière cellule remplie mais au milieu de la colonne la sélection s'étend vers le bas comme si il y avait encore des cellules remplies... Du coup le code n'a pas de fin.
J’espère que c'est assez précis.
Voila mon code :
'Selectionne la feuille liste principale
Sheets("Liste principale").Select
' Selectionne la première cellule du tableau
Range("N2:N" & Range("N" & Rows.Count).End(xlUp).Row).Select
' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
NbLigne = NbLigne + 1
' Selectionne la ligne en dessous
Selection.Offset(1, 0).Select
' Si il y a une cellule vide on affiche le message et on sort du programme
If IsEmpty(ActiveCell) Then
MsgBox ("Cellule N" & NbLigne + 1 & " vide")
Exit Sub
End If
Loop
Si quelqu'un peut m'aider ou à une idée, je suis preneur.