copier une valeur sur plusieurs feuilles

G

Guest

Guest

• 5 Novembre 2011

• #2

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+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 5 Novembre 2011

• #3

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Novembre 2011

• #4

Re : copier une valeur sur plusieurs feuilles

bonsoir,

Code:

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

A+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 5 Novembre 2011

• #5

Re : copier une valeur sur plusieurs feuilles

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

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 6 Novembre 2011

• #6

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.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 6 Novembre 2011

• #7

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:

Code:

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

A+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 6 Novembre 2011

• #8

Re : copier une valeur sur plusieurs feuilles

C'est ce que je cherchais.
Merci beaucoup.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 6 Novembre 2011

• #9

Re : copier une valeur sur plusieurs feuilles

Re,

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

A+

 

Vote positif 0 Vote négatif