Stocker les adresses de cellules
Bonjour,
Je suis un grand débutant en macro, et j'ai énormèment de mal à effectuer ce que je cherche à faire.
J'ai un tableau assez conséquent, chaque ligne possédant une remarque propre, et pour en faciliter la gestion, certaines remarques importantes sont écrites en rouge.
Je cherche maintenant, à l'aide d'une macro, à répertorier l'ensemble des adresses ou ces remarques apparaissent sous forme d'un tableau.
Voila le code que j'ai pour l'instant tapé:
Sub Bouton1()
Dim elm As Object
Dim alm As Object
Dim x() As Object
Dim i As Integer, j As Integer, k As Integer
k = 165
ReDim x(k)
i = 1
For Each elm In Range("Papet!Q35:Papet!Q200")
If elm.Font.ColorIndex = Range("I12").Font.ColorIndex Then
x(i) = elm.Address
End If
i = i + 1
Next elm
j = 1
For Each alm In Range("L10:L20")
alm = x(j)
j = j + 1
Next alm
End Sub
Cependant, l'éxécution de ce code ne fait absolument rien...
Merci de votre aide, et désolé si je pose une question triviale.
Je suis un grand débutant en macro, et j'ai énormèment de mal à effectuer ce que je cherche à faire.
J'ai un tableau assez conséquent, chaque ligne possédant une remarque propre, et pour en faciliter la gestion, certaines remarques importantes sont écrites en rouge.
Je cherche maintenant, à l'aide d'une macro, à répertorier l'ensemble des adresses ou ces remarques apparaissent sous forme d'un tableau.
Voila le code que j'ai pour l'instant tapé:
Sub Bouton1()
Dim elm As Object
Dim alm As Object
Dim x() As Object
Dim i As Integer, j As Integer, k As Integer
k = 165
ReDim x(k)
i = 1
For Each elm In Range("Papet!Q35:Papet!Q200")
If elm.Font.ColorIndex = Range("I12").Font.ColorIndex Then
x(i) = elm.Address
End If
i = i + 1
Next elm
j = 1
For Each alm In Range("L10:L20")
alm = x(j)
j = j + 1
Next alm
End Sub
Cependant, l'éxécution de ce code ne fait absolument rien...
Merci de votre aide, et désolé si je pose une question triviale.
