Bonjour,

Je cherche à modifier un programme pour intégrer un tableau.
Dans ce programme, je compare la cellule avec celle située juste au-dessus dans la colonne et quand la condition est valide, j'inscris un "r" dans la cellule à côté.
Mon bricolage donnait ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
        If Cells(Lig, Col) = "r1" And Cells(Lig - 1, Col) <> "r1" Then
        ActiveCell.Offset (0, 1) .value = "r"
La boucle marche mais c'est très lent.
J'aimerai l'améliorer avec un tableau (que j'appelle Cloture) mais je manque de connaissances.
Voici où j'en suis :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Cloture = Application.Transpose(.Range("B5", .Cells(.Rows.Count, 2).End(xlUp)))     
For I = 1 To UBound(Cloture)
Ctr = 0
X = I
    If Cloture(X) = "r1" And Cells(0, -1) <> "r1" Then
        Cells.Select
        ActiveCell.Offset(0, 1).Value = "r"
Cela bloque au niveau du If car je n'arrive pas à désigner les cellules qui doivent être comparées.
Si l'un de vous peut me donner un coup de main...