Vérification de condition et lancement d'une macro

  • Initiateur de la discussion Initiateur de la discussion Matt51100
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Matt51100

XLDnaute Occasionnel
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 :

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.
 
Re : Vérification de condition et lancement d'une macro

Salut,

je voudrais lancer verifpur quand mes 3 cellules (d.offset(0,-1/-1/-3).value) ne sont pas vides.

La macro tourne mais ne lance pas verifpur. J'ai vérifié en faisant du pas à pas.

A+.
 
Re : Vérification de condition et lancement d'une macro

Re,

En fait je viens d'enlever les tests sur verifpur et laisser une msgbox et rien. J'en déduis donc que verif pur ne se lance pas.

J'aimerais bien mettre le fichier en PJ mais je n'arrive pas à le réduire en dessous de 48 ko

A+, Matt.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
730
Réponses
5
Affichages
573
Retour