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

Logiciel & apps Programmation
1

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

2

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

3

Merci gcc.

Cela fonctionne très bien maintenant.