Un Bouton, Une Macro, Plusieurs Feuilles

[WDAndCo]

Bonjour le Forum

J'ai une macro qui copie quelques cellules sur une Feuille "Données"
Ces valeurs sont copier sur une Feuille "Fiche" par I4 = Données!I1

Cette Macro ce déclenche a l'aide d'un Bouton ce Bouton seras copié sur plusieurs Feuilles.

Sub Fiche()
Sheets("158").Select
    Range("A4:F4").Select
    Selection.Copy
    Sheets("Données").Select
    Range("I2").Select
Sheets("158").Select
    Range("G4:I4").Select
    Selection.Copy
    Sheets("Données").Select
    Range("I3").Select

Ect........    

    Sheets("Fiche VCC").Select
End Sub

La s'est pour la Feuille 158. Comment faire pour que les aller et retour ce fasse si le bouton est sur une autre (159. . .) feuille et conserver la même Macro ?

D'avance merci

Dominique

 

[job75]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Bonjour WDAndCo,

Ah la bière...

Affectez cette macro à chaque bouton :

Sub Fiche()
Range("A4:F4").Copy Sheets("Données").Range("I2")
Range("G4:I4").Copy Sheets("Données").Range("I3")
'........
Sheets("Fiche VCC").Select
End Sub

Et puis s'il y a plus de 2 lignes à copier faites une boucle For i... et utilisez Offset(i) 😉

Edit : bien sûr tous les boutons créés avec la boîte "Formulaires".

A+

 

[WDAndCo]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re Bonjour et Merci

Voici la Macro terminée :

Sub Fiche()

    Range("Q1").Copy Sheets("Données").Range("I1")
    Range("A4").Copy Sheets("Données").Range("I2")
    Range("G4").Copy Sheets("Données").Range("I3")
    Range("L4").Copy Sheets("Données").Range("I4")
    Range("O4").Copy Sheets("Données").Range("L4")
    Sheets("Fiche").Select
    Range("A1").Select
End Sub

Je ne connais pas "Offset(i)"
Et la dans ce cas je ne vois pas comment faire les boucles car les Lettres ou les Chiffres ne sont pas communs.

Merci d'éclairer ma lanterne.

Dominique

 

[job75]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re,

D'accord, mettez juste un With Sheets("Données")...End With pour être parfait.

A+

 

[WDAndCo]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re Forum

Sub Fiche()
With Sheets("Données")
    Range("Q1").Copy .Range("I1")
    Range("A4").Copy .Range("I2")
    Range("G4").Copy .Range("I3")
    Range("L4").Copy .Range("I4")
    Range("O4").Copy .Range("L4")
End With
    Sheets("Fiche").Select
    Range("A1").Select
End Sub

Je peut écrire cela ?

 

[job75]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re,

Correct. Et vous savez bien sûr que si seules les valeurs sont à copier, on écrit :

.Range("I1") = Range("Q1")

A+

 

[WDAndCo]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re

Re,

Correct. Et vous savez bien sûr que si seules les valeurs sont à copier, on écrit :

.Range("I1") = Range("Q1")

A+

Non, mais pourquoi cette inversion entre la Cellule à copier et la Cellule de réception ?

Range("Q1").Copy .Range("I1") = La "Q1" est copié dans "I1" mis a par le changement de feuille.
Et la vous me dites : .Range("I1") = Range("Q1") la j'avoue ne plus rien comprendre.

 

[job75]

Re : Un Bouton, Une Macro, Plusieurs Feuilles

Re,

.Range("I1") = Range("Q1") la j'avoue ne plus rien comprendre.

Comme dans toute instruction exécutée par = ce qui est à gauche est renseigné par ce qui est à droite... Copy a une syntaxe qui lui est propre.

A+