Copie plage cellule condition couleur de police

[Nezmo]

Bonjour à tous, je fais appel à vos services car j'ai un petit soucis. Plus que débutant en vb je n'arrive pas à trouver la solution à mon problème dans le forum.
Je voudrais à partir de 2 colonnes, une pour les horaires, une autre pour le personnel, recopier les noms en rouge dans des cellules situés plus bas. Ce n'est pas trés clair, je joints donc un fichier beaucoup plus clair.
Merci par avance.
Olivier

 

[Compte Supprimé 979]

Re : Copie plage cellule condition couleur de police

Salut Nezmo,

Tu trouveras ci-joint ton fichier avec le code qui va bien
Du moins je l'espère

A+

 

[Nezmo]

Re : Copie plage cellule condition couleur de police

Eh bien chapeau, rapide et pile ce qu'il me faut merci 1000 fois. Merci aussi pour les commentaires, ça facilitera ma compréhension
A bientôt.
Olivier

 

[job75]

Re : Copie plage cellule condition couleur de police

Bonjour Nezmo,

Je ne suis pas sûr que cela corresponde bien à ce que vous souhaitez, mais ci-joint le fichier avec la macro suivante dans le code de la 1ère feuille (clic droit sur l'onglet et Visualiser le code).
La macro se lance par Ctrl+A :

Sub CopiePoliceCouleur()
Dim i As Byte
For i = 1 To 5
If Cells(i, 2).Font.ColorIndex > 0 Then
Cells(i, 2).Copy Cells(i + 7, 2)
Cells(i, 2).Copy Cells(i + 15, 2)
Cells(i, 2).Copy Cells(i + 24, 2)
End If
Next
End Sub

A+

Edit : Salut Bruno, je trainais un peu sur mon envoi...

 

[Nezmo]

Re : Copie plage cellule condition couleur de police

Bonjour Job si c'est aussi ce que je recherchais je vais voir laquelle des deux je peux comprendre le plus facilement. Merci à vous deux.
++
Olivier

 

[Compte Supprimé 979]

Re : Copie plage cellule condition couleur de police

Salut Job75,

Très bon boulot et très concis

Nezmo, pour info, mon code te permet sans problème d'avoir plus de plages d'heures sans changer le code.

Il faudra le changer si tu as plus de ligne par plage, c'est tout

A+

 

[job75]

Re : Copie plage cellule condition couleur de police

Re
Merci du compliment Bruno. Pour le fun, une version avec des Range et une copie vers 3 cellules simultanément :

Sub CopiePoliceCouleur()
Dim i As Byte
For i = 1 To 5
If Range("B" & i).Font.ColorIndex > 0 Then _
Range("B" & i).Copy Range("B7,B15,B24").Offset(i)
Next
End Sub

A+