Bonjour à tous,
J'ai une macro qui vérifie qu'un certain nombre de cellules ne sont pas vides et dans ce cas doit lancer une autre macro, or la deuxième macro n'est pas lancée même quand les conditions sont respectées.
Si vous avez une idée, elle sera la bienvenue.
Voici le code :
Merci d'avance
Matt.
J'ai une macro qui vérifie qu'un certain nombre de cellules ne sont pas vides et dans ce cas doit lancer une autre macro, or la deuxième macro n'est pas lancée même quand les conditions sont respectées.
Si vous avez une idée, elle sera la bienvenue.
Voici le code :
Code:
Public d As Range
Sub PuretéConformité()
Range("S3:S500").Select
For Each d In Selection.Cells
If d.Offset(0, -1).Value <> "" And d.Offset(0, -2).Value <> "" And d.Offset(0, -3).Value <> "" Then
verifpur
End If
Next d
End Sub
Sub verifpur()
Dim a As String
Dim b As String
b = d.Offset(0, -16).Value
If d.Offset(0, -17).Value = "" Then
a = InputBox("Le numéro de catalogue n'est pas rentré. Veuillez l'indiquer." & chr13 & "Le numéro de catalogue doit correspondre à celui de l'allergène " & b)
d.Offset(0, -17).Value = a
End If
End Sub
Merci d'avance
Matt.