michel.dupont
XLDnaute Occasionnel
Bonjour à tous
merci de votre aide...
je galère sur un code sans doute simple...il s'agit simplement de copier et coller une plage de cellule (K3:K24) en j24 et cela sur chaque onglet sauf dans 3...le code ci-dessous ne fait la copie que sur l'onglet "TBL BORD" sur le quel le bouton macro se situe....par avance merci
Michel
le voici
Sub copier()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Recapitulatif" And ws.Name <> "Modele briefing" And ws.Name <> "TBL BORD" Then
Range("K4:K23").Select
Selection.Copy
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
End If
Next ws
End Sub
merci de votre aide...
je galère sur un code sans doute simple...il s'agit simplement de copier et coller une plage de cellule (K3:K24) en j24 et cela sur chaque onglet sauf dans 3...le code ci-dessous ne fait la copie que sur l'onglet "TBL BORD" sur le quel le bouton macro se situe....par avance merci
Michel
le voici
Sub copier()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Recapitulatif" And ws.Name <> "Modele briefing" And ws.Name <> "TBL BORD" Then
Range("K4:K23").Select
Selection.Copy
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K2").Select
End If
Next ws
End Sub
