Aide sur macro

Bonjour

J'ai un classeur avec 3 feuilles
Bouton, formule et mois
je voudrais qu'en se plaçant en C4 et en cliquant cliquant sur M1 les valeur de M1 dans la feuille formule en B5 et C5 se copie dans mois en B4 et B5.

Cette macro doit fonctionner avec tous les codes de la feuille formule depuis la feuille bouton

ex: avec boutons M1 et M2
Merci

Bonsoir,
adaptes ce code qui fonctionne chez moi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub bouton_01() 'cellule blanche Dim plage As Range, cel As Range ActiveCell = Sheets("Bouton").Range("A36").Value Set cel = ActiveCell Set plage = Sheets("formule").Range("a5:a21") ActiveCell.Interior.Color = RGB(255, 255, 255) ActiveCell.Font.Color = RGB(0, 0, 0) 'police noire Set plage = plage.Find(cel.Value, Sheets("formule").Range("a21"), , , , xlNext) 'ci-dessous, je me contente de reprendre b4 et b5 car je ne sais pas.... Sheets("mois").Range("b4") = plage.Offset(0, 1) Sheets("mois").Range("b5") = plage.Offset(0, 2) Sheets("bouton").Range(cel.Offset(0, 1).Address).Activate End Sub

---

J'espère cette fois que je réponds dans le sens où tu le souhaite...

Bonne nuit

Citation:

---

J'espère cette fois que je réponds dans le sens où tu le souhaite...

---

Bonjour casefayere,

merci pour ce code
il fonctionne bien sur la feuille "bouton", mais une fois les heures recopiées sur la feuille mois il ne se décale pas d'une case vers la droite comme le fait "M13 dans la feuille "bouton"
Merci si tu peux m expliquer pourquoi
Un code tout fini c'est bien mais savoir le refaire c'est mieux
Cordialement Polo

Bonjour Papy_polo, le forum,
Tu n'avais pas parlé du décalage sur la feuille "mois" mais il suffit d'adapter de la meme façon :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub bouton_01() 'cellule blanche Dim plage As Range, cel As Range ActiveCell = Sheets("Bouton").Range("A36").Value Set cel = ActiveCell Set plage = Sheets("formule").Range("a5:a21") ActiveCell.Interior.Color = RGB(255, 255, 255) ActiveCell.Font.Color = RGB(0, 0, 0) 'police noire Set plage = plage.Find(cel.Value, Sheets("formule").Range("a21"), , , , xlNext) 'ci-dessous, je me contente de reprendre b4 et b5 car je ne sais pas.... Sheets("mois").Range("b4") = plage.Offset(0, 1) Sheets("mois").Range("b5") = plage.Offset(0, 2) Sheets("bouton").Range(cel.Offset(0, 1).Address).Activate Sheets("mois").Range("b4:b5") .activate 'si j'ai bien compris End Sub

---

tout dépend sur quelle feuille tu veux te trouver à la fin du code

Bonne journée

Bonsoir a tous

Encore moi,
pour ce qui est de recopier dans la case "mois" ca fonctionne
mais il y a un pb
je joint la copie écran de l'erreur avec le code
j' ne comprends pas pourquoi la plage est en défaut

merci de me mettre un petit commentaire avec la solution

polo

Bonsoir,
J'ai réglé le problème de l'erreur, voir fin du code, mais je suis sur que ça ne suffira pas, mais on avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub bouton_01() 'cellule blanche Dim plage As Range, cel As Range ActiveCell = Sheets("Bouton").Range("A36").Value Set cel = ActiveCell Set plage = Sheets("formule").Range("a5:a21") ActiveCell.Interior.Color = RGB(255, 255, 255) ActiveCell.Font.Color = RGB(0, 0, 0) 'police noire Set plage = plage.Find(cel.Value, Sheets("formule").Range("a21"), , , , xlNext) 'ci-dessous, je me contente de reprendre b4 et b5 car je ne sais pas.... Sheets("mois").Range("b4") = plage.Offset(0, 1) Sheets("mois").Range("b5") = plage.Offset(0, 2) Sheets("bouton").Range(cel.Offset(0, 1).Address).Activate Sheets("mois").Activate Range("c4:c5").Select 'si j'ai bien compris End Sub

---

Citation:

---

J'ai réglé le problème de l'erreur, voir fin du code, mais je suis sur que ça ne suffira pas, mais on avance.

---

Bonjour

Oui on avance grâce a toi


Sur la feuille bouton si je clique sur M1 alors que je suis positionné en C4 la repopie se fait bien en B4 et B5 sur la feuille mois par rapport à la recherche dans la feuille formule. (ca fonctionne)

Maintenant si je continue a appuyer sur M1 alors que je suis dans la cellule C5 dans la feuille bouton, la recopie dans la feuille mois sur les cellule qui correspondent à C5 (feuille bouton) ne se fait pas en C4 et C5 (feuille mois)


Je t'ai fais copie du résultat et une image de ce que je voudrais

Cordialement Polo

j'ai compris et me doutais qu'on allait dans ce sens là,
je te repondrai dès que je peux, tu imagine bien que d'autres activités m'accaparent.
Mais j'ai déjà une idée sur ce qu'il faut faire

Bonne journée

Citation:

---

Mais j'ai déjà une idée sur ce qu'il faut faire

---

Bonsoir

Merci j'attendrais donc ta réponse

polo