Transfere données si rencontre d'une valeur

Bonjour,

Dans ce tableau, il y a un calendrier avec des jalons (X). J'essaye de créer une macro qui me permette lorsque je double clic sur la date d'un jour souhaité, que les données "Nom", "Prénom", "Chambre" de la feuille "planning" aillent dans la feuilles "recapitulatif" dans les colonnes du même nom (seulement si il y a un jalon (X))

Etant novice et bien que ayant suivi les formations du site, j'ai essayé de créer une macro à partir de macro trouvées sur Internet...bien sûr cela ne donne rien.

Je vous remercie de votre aide.

12sortie.xlsx (195.25 Ko)

Bonjour et bienvenue sur le forum

Un essai à tester.

Te convient-il ?

9sortie.xlsm (208.81 Ko)

Je vous remercie pour votre efficacité !

Etant soucieux d'apprendre, pourriez vous me commenter les lignes de codes de la macro ?

SVP

Bonjour,

Une autre version, qui utilise le filtre élaboré..

Le code est commenté.

J'ai également rajouté une procédure dans le ThisWorkbook_Open, qui te permet d'aller directement à la date du jour

(avec utilisation de l'option "Figer les Volets" du ruban "Affichage")

Et la date du jour est en rouge.

Bon dimanche

6sortie-v2.xlsm (207.07 Ko)

C'est impeccable !

Les commentaires vont être très utile, mtnt je vais m'amuser rajouter une petite MsgBox "récapitulatif édité"

j'ai rajouté une ligne surlignée en vert et un module

Sub masque()
Worksheets("liste_donnée").Visible = False
End Sub
.........
    Sheets("recapitulatif").Range("C5") = Format(Target, "dddd dd mmmm yyyy")
    'je mets la date de la sortie
    Range("E5:BDJ5").ClearContents: Range("BDK1:BDK2").Clear
    'je nettoie les titres de colonne et les critères
    Sheets("recapitulatif").Activate
End If
]If MsgBox("récapitulatif du jour édité", vbOKOnly) = vbOK Then
End If
End Sub

Bonjour

Tu écris :

pourriez vous me commenter les lignes de codes de la macro ?

Voilà qui est fait.

5sortie-v1.xlsm (209.93 Ko)
Rechercher des sujets similaires à "transfere donnees rencontre valeur"