Macro automatique pour creer un rappel

  • Initiateur de la discussion Initiateur de la discussion nass06
  • 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 !

nass06

XLDnaute Nouveau
bonjour,
je suis nouveau sur le site, que je trouve excellent, voila je viens de découvrir tous ce qu'on peut faire avec excel, vraiment impressionnant.
Voila, moi je m'y connais un peu en VB, et une personne ma demander de lui faire ce qui suis :
Elle désire, lorsqu'elle ouvre un classeur excel, qu'une macro se déclenche automatiquement et lui affiche, soit dans un message box, ou en fond surligné dans excel, ou autre (car je ne connais pas les possibilités), les personnes à rappeler.
J'ai fait une toute petite ebauche de la macro, elle ressemble à cela :

Sub Workbook_Activate()
'
' verif Macro
' affiche les personnes a rappeler
'
' Touche de raccourci du clavier: Ctrl+d
'
Application.Goto Reference:="Workbook_Activate"
If Range("E81").Value = "repondeur" Then
MsgBox "Vous devez rappelez "
End If
End Sub

Donc ce que je voudrais modifier c'est :
1-Qu'elle se déclenche automatiquement(j'ai regarde un peut partout mais sa fonctionne pas)
2-Que la fonction cherche dans toute la colonne E (j'ai pas trouvé)
3-Avoir un MsgBox améliorer avec sois un récapitulatif des cellules, ou leur changement de couleur ou autre.

Merci beaucoup de votre aide, j'espère avoir été clair.

Voila une pièce jointe
 

Pièces jointes

Re : Macro automatique pour creer un rappel

merci beaucoup, mais je ne vois pas la macro, j'aurais aime voir comment elle fonctionne, et surtout y ajouter des mots à chercher en plus de "rappeler"
ps: comment l'utiliser dans d'autre classeur si je ne la vois pas, merci bcp
 
Re : Macro automatique pour creer un rappel

re nass06

la macro est dans workbook_open

outils> macro>visualbasic editor
et click a gauche sur thisworkbook

la voici:

Private Sub Workbook_Open()
Sheets("Feuil1").Select
For n = 1 To Sheets("Feuil1").Range("E65536").End(xlUp).Row
If Sheets("Feuil1").Range("E" & n).Value = "rappeler" Then
MsgBox "Vous devez rappeler " & Sheets("Feuil1").Range("A" & n)
End If
Next n
ActiveWorkbook.Save

End Sub
 
Re : Macro automatique pour creer un rappel

ok merci beaucoup (désolé je débute), si je comprend bien, elle ne fonctionne alors que sur la feuil1, donc quel est la syntaxe pour plusieurs feuilles, et sur

If Sheets("Feuil1").Range("E" & n).Value = "rappeler" Then
je peux rajouter ceci : .Value = "rappeler" or "repondeur"
ou quel syntaxe utiliser sinon, merci beaucoup
 
- 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
7
Affichages
968
Réponses
0
Affichages
1 K
Retour