Forum Clubic

Intégration d'une formule dans un boulce for dans Excel

Bonjour,

Je souhaite intégrer une formule dans un boucle excel.

La fonction de base permet de recopier le fond d’une cellule dans une autre.
Voila la fomule que j’utilise:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[D3].Interior.Color = [A1].Interior.Color
End Sub

Mon but est d’intégrer cette formule dans une boucle afin de le faire sur plusieur cellule.
Mon problème étant que je n’arrive pas à faire cette boucle:(.

voici quelques codes que j’ai essayé:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = 1
For i = 1 To 4 Step 1
[Ai].Interior.Color = [Di].Interior.Color
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = 1
For i = 1 To 4 Step 1
Cells(A, i).Interior.Color = Cells(D, i).Interior.Color
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = 1
For i = 1 To 4 Step 1
Range(“Ai”)].Interior.Color = Range(“Di”).Interior.Color
Next i
End Sub

Comme vous pouvez le voir, je ne suis absolument pas doué avec Excel.

Pourriez-vous m’aider?

Merci d’avance

Cells(A, i).Interior.Color = Cells(D, i).Interior.Color
Si tu utilises Cells, tu dois donner le numero de colonne et non la lettre qui la représente. Et la colonne, c’est le second argument
Cells(i, 1).Interior.Color = Cells(i, 4).Interior.Color

Range(“Ai”)].Interior.Color = Range(“Di”).Interior.Color
Là tu fais un mélange entre la lettre i et la désignation de ta variable.
Il faut que tu sortes le i de la chaine de caractères
Range(“A” & i)].Interior.Color = Range(“D” & i ).Interior.Color

Attention, dans les deux cas, c’est la colonne A qui va prendre les couleurs de la colonne D, contrairement à l’exemple que tu présentais en premier

Merci gcc.

Cela fonctionne très bien maintenant.