Soucis MACRO
Bonjour,
voila j'ai le code ci dessous qui me permet d'afficher les opérations en cours, or je voudrais qu'il s'active uniquement si il y a une opération et suivant la date (suivant un périodicité) pouvez vous m'aider?
Private Sub CommandButton2_Click()
Set fm = Sheets("MACHINE")
mess = ""
For Ln = 4 To fm.Range("D" & fm.Range("Tableau1").Rows.Count).End(xlUp).Row
If fm.Range("D" & Ln) <> "" Then
If fm.Range("E" & Ln) = Date Then mess = mess _
& Chr(13) & Chr(10) & fm.Range("C" & Ln)
End If
If fm.Range("D" & Ln) <> "" Then
If fm.Range("E" & Ln) >= "" Then mess = mess _
& Chr(13) & Chr(10) & fm.Range("C" & Ln)
End If
Next Ln
If mess <> "" Then MsgBox "Opération(s) à effectuer :" & Chr(10) & mess, vbExclamation, _
"Opération(s)"
End Sub
- -> Sachant que D est ma date de première opération
- -> E est la suivante
- -> il y à une périodicité que je voudrais qui soit appliqué au MSGBOX
Merci !
Bonjour,
Tu n'es pas nouveau sur le forum. Tu sais donc qu'un petit fichier est apprécié.
De plus, pourrais-tu préciser ta question ?
Cdlt.
Bonjour,
Voila le lien
Voyez vous dans la feuille MACHINE en D j'ai une Date (Première Opération) puis en E une autre (Seconde opération) et en H ma périodicité.
Ce que je voudrais c'est que lorsque je clique sur le bouton Info de la page planning puis sur "Opération à effectuer" j'ai les opérations qui s'affiches
Je m'explique :
Si D, E, E+H, E+2H et ainsi de suite = Aujourdhui la MSGBOX apparait
Si D, E, E+H, E+2H... différent de Aujpurdhui, pas de MSGBOX
Pour l'instant j'ai réussi UNIQUEMENT si D, E et E+H = Aujourdhui, malheureusement je n'arrive pas à continuer la périodicté... Comment puis je faire...
Désolé des explications brouillons
J'ai une autre idée dite moi si c'est possible,
Si dans la page machine, lorsque E = AUJOURDHUI, je remplace D par est ce possible ainsi ca me ferait une boucle
Le problème c'est que j'ai essayer en mettant dans la colonne C : SI(E5=AUJOURDHUI;E5;"") mais ca m'affiche une erreur... Pouvez vous m'aider?
Je suis désoler de presser un peu mais je doit le présenter à 10h30...
Bonjour,
il manque les guillemet sur la chaîne de caractère :
SI(E5="AUJOURDHUI";E5;"")
Merci, cette partie j'ai réussi malheureusement ma macro ne s'active plus....