Discussion :

[Goupil46]

Bonsoir,

Je débute, et pour comprendre un peu comment fonctionnent les macros, j'ai enregistré une macro, que j'ai ensuite affectée à un bouton.

Mai je butte sur la suite:
Soit mon tabeau de 18 lignes. J'ai un bouton par ligne. Ma macro est affectée au bouton 1, comment faire pour l'affecter aux boutons 2 à 18, de façon incrémentée, c'est à dire que la macro du bouton 2 commande les cellules de la ligne 2, etc...?

J'ai cherché sur le site, mais rien ne m'a semblé correspondre à ma situation, pourtant, cela doit être la base...!

Je vous remercie par avance pur vos réponses.

[Sepia]

Pour utiliser la ligne courante et la colonne courante, il suffit de travailler en mode relatif c'est-à-dire ne pas indiquer des valeurs de cellule en dur (type A$2$). Tu peux aussi récupérer le n° de ligne et de la colonne où se situe le curseur, via une commande VBA.

[fring]

Bonjour,

18 boutons pour lancer une macro par ligne ? Peux tu un peu expliquer ce que tu fais et ce que tu souhaites obtenir ? Il est peut être possible de simplifier.

Concernant l'incrémentation des boutons, il n'y a pas vraiment d'alternative que d'attribuer une commande à exécuter lors de l'évènement Click de chaque bouton et ceci bouton par bouton.

[Goupil46]

Bonjour,

Il s'agit d'une liste de quinze personnes, et du suivi de leurs consultations ophtalmologique:

Ligne 7:

-E7: Date de la dernière consultation.
-F7: Date théorique de la prochaine consult.: E7+365 (1 contrôle/an)
-G7: Date du RDV pris.
- I7: Bouton de mise à jour.

Lorsque le RDV a été honnoré, G7 doit venir remplacer E7. C'est la fonction de la macro.

Et ainsi de suite sur les 15 lignes.

J'avais pensé à 1 bouton qui ferait toutes les mises à jour, mais la situation de chaque personne dans le tableau est différente. Les MàJ doivent se faire individuellement.
La solution, pour un bouton unique, serait d'inclure, dans la macro, une formule conditionnelle du genre:

"J'appuie sur le bouton mais seules les lignes 7 à 39 dont les cellules G7 à G39 (*) sont remplies seraient concernées par le modif."

Ce serait plus simple et rationel, mais je ne sais pas faire. Je débute complètement!

Merci pour votre aide.

*: G39 parce que j'ai un interligne entre chaque ligne du tableau.

[fring]

Bonjour,

Oui cela est tout à fait réalisable avec un seul bouton mais selon moi la condition ne devrait pas être "si G7 à G39 sont remplies" vu que ces cellules contiennent les dates de rdv.
La condition devrait plutot être "si le rdv a été honoré", il y a t'il quelque chose qui signale si le rdv a été honoré ou non ?

[ouskel'n'or]

+1
C'est même réalisable sans bouton, en plaçant le code dans Worksheet_Selection change, avec un message d'avertissement "Rendez-vous honoré, remplacer la date de dernière consultation" (Oui/non)
Un clic sur la ligne, une question et c'est tout bon.
Sans bouton, ça te dirait ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  A		  B	C	   D		   E		   F				G
Civilité	Nom	Prénom	Téléphone	Date	 Date théorique de la prochaine consult	Date du RDV pris
Monsieur	Untel	Jules			27/10/2007	26/10/2008	
Madame		Martin	Juliette		02/02/2008	01/02/2009	
Mademoiselle	Dupond	Lucie			07/04/2008	07/04/2009	
Monsieur	Dubois	Raoul			10/03/2008	10/03/2009

Le code à placer dans la feuille de code de la feuille de calculs -> Menu Outils -> Macros -> Visual Basic Editor -> Deux clics sur le nom de la feuille -> Coller ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If InStr(Target.Address, ":") <> 0 Then Exit Sub
    If Target = "" Then Exit Sub
    If MsgBox("Rendez-vous de " & Cells(Target.Row, 1) & " " & _
       Cells(Target.Row, 3) & " " & Cells(Target.Row, 2) & " honoré," & vbCr & _
       " remplacer la date de dernière consultation", vbYesNo, "RV Honoré") = vbYes Then _
        Cells(Target.Row, 5) = Cells(Target.Row, 6)
End Sub

Juste en passant