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
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 :
Code:
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...
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 :
Code:
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