Je voudrais une petite macro que je voudrais mettre sur ma feuille 1 qui va copier coller les valeurs de la plage ("E4:E18") dans la plage ("B4:B18") de chacune des feuilles a,g,o,u .(Voir fichier joint)
Sub test()
sht = Array("a", "g", "o", "u")
For i = LBound(sht) To UBound(sht)
Sheets(sht(i)).Range("B4:B18") = Sheets(sht(i)).Range("E4:E18").Value
Next
End Sub
une autre possibilité serait de faire la boucle sur toutes les feuilles et vérifier si le nom est différent de "Fin" ou "Feuil1"
je reprend votre message sur la bouche dans plusieurs feuilles.
moi çà marche pas, il va pas dans les feuilles avec:
Sub test()
Dim sht As Worksheet
Dim cpt As Integer
cpt = 1
'sht = Array("Société x", "société Y")
For Each sht In Worksheets
'Sheets(sht(i)).Range("A1") = "1"
Range("A" & cpt) = "1"
cpt = cpt + 1
Next sht
End Sub
Sub MiseAjour()
Dim cpt As Integer
Dim derl As Integer
Dim ln As Integer
Dim sh, i As Integer
If Sheets("Macro").Range("X22") = "" Then
cpt = 22
End If
For Each sh In Array("Société x", "société Y")
derl = Worksheets(sh).Range("X1").End(xlDown).Row
For ln = 2 To derl
If Worksheets(sh).Range("X" & ln) = "KO" Then
'copier
Worksheets(sh).Range("A" & ln & ":X" & ln).Copy
'coller
Sheets("Macro").Select
Range("A" & cpt).Select
ActiveSheet.Paste
cpt = cpt + 1
End If
Next ln
Next sh
End Sub