Bonjour,
J'ai passé beaucoup de temps à chercher une solution efficace mais je n'arrive pas à la trouver
Pour cela, je fais appel à vous pour m'aider si possible
En fait, j'ai un fichier ou je veux copier à chaque fois les couleurs et la police de la 3ème colonne dans les 2 colonnes précédentes : par exemple je dois reprendre les couleurs et la police de la colonne F dans les 2 colonnes précédentes (D et F) et ainsi de suite jusqu'à la colonne 36
j'ai pu adapter un code pour copier uniquement les couleurs de la colonne C dans les colonnes A et B
ub Couleur()
Dim i%
For i = 1 To 65
Cells(i, 1).Interior.Color = Cells(i, 3).Interior.Color
Cells(i, 2).Interior.Color = Cells(i, 3).Interior.Color
Next i
End Sub
Mais je n'arrive à le boucler sur les autres colonnes suivantes, ni d'ajouter la police
Pour plus de détails, ci-joint un fichier exemple, Pouvez vous m'aider svp?
PS: Je ne veux pas copier toute la mise en forme puisque le type de format des 3 colonnes n'est pas le même (Texte, nombre et date)
D'avance, merci