Discussion :

[papy_polo67]

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

[casefayere]

Bonsoir,
adaptes ce code qui fonctionne chez moi

Code :

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

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

[papy_polo67]

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

[casefayere]

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 :

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

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

[papy_polo67]

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

[casefayere]

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 :

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

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

[papy_polo67]

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

[casefayere]

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

[papy_polo67]

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

Bonsoir

Merci j'attendrais donc ta réponse

polo