Microsoft 365 MsgBox si cellule vide sur ligne remplie

ExcLnoob

XLDnaute Occasionnel
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.
 
Solution
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Controle colonne W V1.xlsm
    31.7 KB · Affichages: 2

Discussions similaires

Réponses
4
Affichages
134

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG