Stocker les adresses de cellules
guinpin54
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
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.
A voir également:
- Stocker les adresses de cellules
- Somme de plusieurs cellules excel - Guide
- Verrouiller cellules excel - Guide
- Où sont stockés les mots de passe sur android - Guide
- Fusionner deux cellules excel - Guide
- Nom de l'adresse - Forum Réseaux sociaux
2 réponses
Pardon, si je met:
Dim x() As Object, cela me renvoi une erreur de type "variable objet ou variable de bloc with non définie"
Dim x() As String, cela ne me renvoi absolument rien
Dim x() As Object, cela me renvoi une erreur de type "variable objet ou variable de bloc with non définie"
Dim x() As String, cela ne me renvoi absolument rien
