copier une valeur sur plusieurs feuilles

[alfazoulou]

Bonjour,
je voudrais savoir comment copier la valeur contenue dans la cellule A1 de la feuille "toto" vers les cellules A2 des 4eme, 5eme, 6eme et 7eme feuilles.
Merci.

 

[Guest]

Re : copier une valeur sur plusieurs feuilles

Bonjour,

Première solution, avant de rentrer ta valeur en A2 tu sélectionne ta feuille Toto en cliquant sur son onglet puis avec la touche CTRL les feuilles 4 à 7. Tout ce que tu feras sur la feuille Toto se répercutera sur les autres feuilles.

Autre solution: dans chaque cellule A2 des feuille 4 à 7 met la formule = Toto!A2

A+

 

[alfazoulou]

Re : copier une valeur sur plusieurs feuilles

Merci pour cette réponse mais je recherche plutot comment écrire plus simplement:
Sheets("Feuil4").Select
Range("A2").value=Sheets("toto"). Range("A1").value
Sheets("Feuil5").Select
Range("A2").value=Sheets("toto"). Range("A1").value
Sheets("Feuil6").Select
Range("A2").value=Sheets("toto"). Range("A1").value
Sheets("Feuil7").Select
Range("A2").value=Sheets("toto"). Range("A1").value

 

[Guest]

Re : copier une valeur sur plusieurs feuilles

bonsoir,

Dim i As Integer
For i = 4 To 7
    Sheets("Feuil" & i).Range("A2").Value = Sheets("toto").Range("A2").Value
Next

A+

 

[alfazoulou]

Re : copier une valeur sur plusieurs feuilles

je teste ça demain matin pour éviter une scène de ménage. Merci

 

[alfazoulou]

Re : copier une valeur sur plusieurs feuilles

si mes feuilles 4 à 7 portent des noms comment doit on faire ?

j'imagine qu'il faut remplacer ("Feuil" & i) par autre chose.

 

[Guest]

Re : copier une valeur sur plusieurs feuilles

Bonjour,

Non si, comme tu l'as dis tes feuilles s'appellent "Feuil4" à "Feuil7", sinon il faut procéder autrement:

For each Sh In WorkSheets(Array("Titou", "Tatou","Toutou","Panpan"))
  Sh.range("A2").Value = Sheets("toto").Range("A1").Value
next sh

A+

 

[alfazoulou]

Re : copier une valeur sur plusieurs feuilles

C'est ce que je cherchais.
Merci beaucoup.

 

[Guest]

Re : copier une valeur sur plusieurs feuilles

Re,

Essaie d'être plus descriptif et précis la prochaine fois, ça ira plus vite.

A+