Blocage sur macro ...
twenti
-
twenti -
twenti -
Bonjour,
Je suis actuellement dans le jus sur un configuration de macro.
Je souhaiterais lancer un macro sur excel sous certaines conditions, je m'explique :
Si les cellules B3, C12, E15 sont vides ou comporte « ---- »
Alors j'affiche un message du style « merci de remplir toutes les cellules » et je remets la macro a zéro
Par contre si les conditions sont bien remplies j'autorise le reste de ma macro
....
Je n'ai jamais eu de formation sur le VBA, j'apprends tous sur le tas et donc mes connaissances en la matière sont restreintes, merci d'éclairer ma lanterne avec des explications le plus simple possible.
Cordialement,
Vincent
Je suis actuellement dans le jus sur un configuration de macro.
Je souhaiterais lancer un macro sur excel sous certaines conditions, je m'explique :
Si les cellules B3, C12, E15 sont vides ou comporte « ---- »
Alors j'affiche un message du style « merci de remplir toutes les cellules » et je remets la macro a zéro
Par contre si les conditions sont bien remplies j'autorise le reste de ma macro
....
Je n'ai jamais eu de formation sur le VBA, j'apprends tous sur le tas et donc mes connaissances en la matière sont restreintes, merci d'éclairer ma lanterne avec des explications le plus simple possible.
Cordialement,
Vincent
A voir également:
- Blocage sur macro ...
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Blocage messenger - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Blocage smtp sortant - Forum Freebox
2 réponses
Bonjour,
Un exemple :
à placer en début de macro, après une éventuelle déclaration de variables :
Un exemple :
à placer en début de macro, après une éventuelle déclaration de variables :
Dim Test As Boolean
Test = True
If [B3] = "" Or [B3] = "« ---- »" Then Test = False
If [C12] = "" Or [C12] = "« ---- »" Then Test = False
If [E15] = "" Or [E15] = "« ---- »" Then Test = False
If Test = False Then
MsgBox "merci de remplir toutes les cellules"
Exit Sub
End If
'Suite de ton code
