Discussion :

[babou41287]

Bonjour Forum,

je recherche une ligne de code qui me permettrait de détecter si une cellule est vide dans ma ligne (celle qui est sélectionnée quand j'active mon bouton)

Voici ce que j'ai essayé mais qui ne marche malheureusement pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
Dim ligne As Integer, q As Integer
 
ligne = ActiveCell.Row
 
For q = A To BB
If Range(q & 96) = "" Then
msgbox "Une ou plusieurs cellules n'ont pas été remplies." & chr10 & _
        "Veuillez les compléter avant de générer les rapports.", _
        vbOKOnly + vbExclamation, "Information"
 
End If
Next q
end sub

Il faudrait que si une cellule vide dans la ligne, la macro s'arrête à ce niveau et que l'opérateur retourne sur la ligne

et si tout est bon, que la macro poursuive:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
msgbox: "Une fois le rapport généré, la ligne d'évaluation sera verrouillée et vous ne pourrez plus la modifier" & chr10 & _
"Etes vous sûr de vouloir continuer?", vbYesNo + vb Exclamation, "Information"

Je vous remercie de votre aide précieuse..

[jfontaine]

Bonjour,

Ci dessous une méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Rg As Range
Dim IntCompteur As Integer
 
 
For Each Rg In Range("A" & ActiveCell.Row & ":BB" & ActiveCell.Row)
    If Rg.Value = "" Then IntCompteur = IntCompteur + 1
Next
 
MsgBox IntCompteur

[mercatog]

Bonjour
Une autre proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim n As Integer
 
n = Application.CountBlank(Range("A" & ActiveCell.Row & ":BB" & ActiveCell.Row))
If n > 0 Then MsgBox "Tu as " & n & " cellules vides sur la ligne " & ActiveCell.Row

[babou41287]

Merci! Ca marche super!! c'est exactement ce qu'il me fallait!!!