cathodique
XLDnaute Barbatruc
Bonsoir,
Je dois mettre en place une série de tests pour vérifier qu'aucune donnée n'est manquante avant l'archivage.
J'ai une suite de ElseIf et celle qui est ci-dessous n'est pas complète. En effet, ainsi je ne vérifie que la cellule C12. Alors qu'en fait, il faudrait vérifier à partir de la ligne 12, si col B non vide alors col C doit être non vide.
ex:si B16 est non vide et que C16 est vide, on doit avoir une message et sortie de la procédure.
J'ai fait une macro, mais je ne sais pas comment la transformer en fonction.
Merci beaucoup.
Je dois mettre en place une série de tests pour vérifier qu'aucune donnée n'est manquante avant l'archivage.
J'ai une suite de ElseIf et celle qui est ci-dessous n'est pas complète. En effet, ainsi je ne vérifie que la cellule C12. Alors qu'en fait, il faudrait vérifier à partir de la ligne 12, si col B non vide alors col C doit être non vide.
VB:
ElseIf .Range("C12") = "" Then
MsgBox "Il n'y a aucunes données à archiver!", vbCritical
Exit Sub
J'ai fait une macro, mais je ne sais pas comment la transformer en fonction.
VB:
Sub verif()
Dim i As Integer
i = 12
Do While Cells(i, 2) <> ""
If Cells(i, 2).Offset(, 1) = "" Then MsgBox "pas bon"
Exit Sub
i = i + 1
Loop
End Sub
Merci beaucoup.