copie forme conditionnelle

[Lagache]

Bonjour le Forum

J'ai plusieurs feuilles de calcul avec dans la même colonne (g) des formules sur 52 lignes.
J'ai fait une mise en forme conditionnelle sur la ligne g2 avec deux conditions et je souhaiterai par macro recopier la forme conditionnelle de la ligne 2 à la ligne 52 dans la colonne G et ce dans trois feuilles différentes.

Merci de votre aide @+

Claude

 

[pierrejean]

Re : copie forme conditionnelle

bonjour lagache

une macro a adapter

Sub test()
Dim n As Integer
Dim m As Integer

Range("A1").Copy
For m = 1 To 3
 For n = 1 To 5
   Sheets("Feuil" & m).Range("B" & n).PasteSpecial Paste:=xlPasteFormats
 Next n
Next m
Application.CutCopyMode = False
End Sub

 

[Lagache]

Re : copie forme conditionnelle

Bonsoir Pierre Jean et le Forum

En premier lieu merci à Pierre Jean, pour la réponse que je viens de trouver en rentrant.
Petite remarque , si j'ai bien compris :
m représente les feuilles , mais n , est ce la colonne ? alors pourquoi 5 ?

Excuse moi je ne suis pas un grand performant !

Merci de me renseigner
Bonne soirée à toi

Claude

 

[pierrejean]

Re : copie forme conditionnelle

bonjour Claude

n est le nombre de lignes (c'est B qui designe la colonne)

pourquoi 5 ?

parceque je fais toujours un test pour m'assurer qu'il n'y a pas de bug

c'est donc n'importe quoi pourvu que ça marche!!!

pour adapter a ton cas

[LEFT]Sub test()
Dim n As Integer
Dim m As Integer

Range("G2").Copy
For m = 1 To 3
 For n = 3 To 52
   Sheets("Feuil" & m).Range("G" & n).PasteSpecial Paste:=xlPasteFormats
 Next n
Next m
Application.CutCopyMode = False
End Sub
[/LEFT]

il ne reste plus qu'a adapter eventuellement le nom des feuilles

 

[Lagache]

Re : copie forme conditionnelle

Bonjour Pierre Jean

En fait j'ai un message d'erreur 9 l'indice n'appartient pas à la sélection

j'ai nommé des feuiles : Paie1,Paie2,Paie3 (nom de mes feuilles en question)

ou est l'erreur ?

Merci
Claude

 

[pierrejean]

Re : copie forme conditionnelle

re

teste comme cela

[LEFT]Sub test()
Dim n As Integer
Dim m As Integer

Range("G2").Copy
For m = 1 To 3
 For n = 3 To 52
   Sheets("Paie" & m).Range("G" & n).PasteSpecial Paste:=xlPasteFormats
 Next n
Next m
Application.CutCopyMode = False
End Sub
[/LEFT]

 

[Lagache]

Re : copie forme conditionnelle

Re Pierre Jean

Bon là c'est OK , ça fonctionne , par contre est 'il possible que dans chaque feuille on puisse inclure d'autres colonnes telles que : "BM" et "DS".
J'ai essayé
Sheets("Paie" & m).Range(("G" & n),("BM" & n)).PasteSpecial Paste:=xlPasteFormats
mais cela me désorganise les copies car cela inclus toutes les colonnes

Merci à toi

Claude

 

[pierrejean]

Re : copie forme conditionnelle

re

[LEFT]Sub test()
Dim n As Integer
Dim m As Integer

Range("G2").Copy
For m = 1 To 3
 For n = 3 To 52
   Sheets("Paie" & m).Range("G" & n).PasteSpecial Paste:=xlPasteFormats
   sheets("Paie" & m).Range("Bs" & n).PasteSpecial Paste:=xlPasteFormats
 Next n
Next m
Application.CutCopyMode = False
End Sub

eh oui !! ca fait ecrire un peu plus (encore que ... avec copier/coller)
[/LEFT]

 

[Lagache]

Re : copie forme conditionnelle

Salut Pierre Jean

Ben oui , c'est tellement simple!! Niark

Un trés grand merci @ +

Claude