Microsoft 365 MsgBox si cellule vide sur ligne remplie

ExcLnoob · 9 Février 2022

Bonsoir le Forum,

Je souhaiterai trouver une soluce pour déclencher une MsgBox si la cellule de la colonne W de la dernière ligne remplie est vide.
J'ai déjà tenté le test de la dernière cellule vide du classeur mais je n'arrive pas à inclure la notion de 'dernière ligne remplie'
Vous avez une idée ?
En espérant avoir été clair...
Merci d'avance pour votre aide.

Phil69970 · 9 Février 2022

Bonjour @ExcLnoob

Je te propose :

VB:

Sub Maligne()
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'A adapter
If Range("W" & Derlig) = "" Then
    MsgBox "La ligne W" & Derlig & " est vide", vbCritical, "Cellule vide ! "
End If
End Sub

*Remarque :
Vouloir contrôler la dernière ligne de la colonne W n'est pas tout à fait ça à proprement parler car la dernière cellule de la colonne W sont les limites d'excel !!
En fait si j'ai compris tu cherches à savoir si quand tu remplis la dernière ligne tu n'as pas oublier de remplir la cellule de la colonne W. Pour cela il faut avoir une comparaison pour connaitre la dernière ligne en question

Derlig = Worksheets("Feuil1").Range("A" &...

Phil69970 · 9 Février 2022

Bonjour @ExcLnoob

Je te propose :

VB:

Sub Maligne()
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'A adapter
If Range("W" & Derlig) = "" Then
    MsgBox "La ligne W" & Derlig & " est vide", vbCritical, "Cellule vide ! "
End If
End Sub

*Remarque :
Vouloir contrôler la dernière ligne de la colonne W n'est pas tout à fait ça à proprement parler car la dernière cellule de la colonne W sont les limites d'excel !!
En fait si j'ai compris tu cherches à savoir si quand tu remplis la dernière ligne tu n'as pas oublier de remplir la cellule de la colonne W. Pour cela il faut avoir une comparaison pour connaitre la dernière ligne en question

Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'A adapter

*Merci de ton retour

@Phil69970

ExcLnoob · 9 Février 2022

Bonsoir @Phil69970
Je tiens tout d'abord à vraiment te remercier pour ta réactivité!
Ton code est tout à fait fonctionnel !
Merci.
Je me suis permis de rajouter " Range("W" & Derlig).select pour que l'utilisateur soit directement positionné sur la cellule à remplir.
Encore MERCI !!

Microsoft 365 MsgBox si cellule vide sur ligne remplie

ExcLnoob

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

Pièces jointes

ExcLnoob

XLDnaute Occasionnel

Discussions similaires