Discussion :

[Manu3100]

Bonjour,


Je voudrais faire tourner ce code en loop jusqu'a la derniere ligne mais je n'y arrive pas.
Le code en question, efface les doublons en gardant dans la ligne la premiere valeur.
Le code marche mais que pour la première ligne déterminée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub M()
 
 
    Dim N As Long
    lastrow = Sheets("Sheet2").Range("D2").SpecialCells(xlCellTypeLastCell).Row
 
  For i = 2 To lastrow
        Set rlook = Range(Cells(2, i + 1), Cells(2, 1))
        If Application.WorksheetFunction.CountIf(rlook, Cells(2, i + 1)) > 0 Then
            Cells(2, i + 1).Clear
        End If
    Next i
    End sub

Merci d'avance a tout le monde.

[StormH]

Bonjour,

Je pense que ton problème vient du fait que tu reste sur la première ligne justement (ici je dirais la ligne avec comme indice "2").
En effet contrairement à la fonction "Range", la fonction "Cells" prends l'indice de la ligne puis l'indice de la colonne.
Ici tu incrémentes donc la colonne et non la ligne.

Avec cette simple correction cela donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub M()
    Dim N As Long
    lastrow = Sheets("Sheet2").Range("D2").SpecialCells(xlCellTypeLastCell).Row
    For i = 2 To lastrow
        Set rlook = Range(Cells(i + 1, 2), Cells(1, 2))
        If Application.WorksheetFunction.CountIf(rlook, Cells( i + 1, 2)) > 0 Then
            Cells( i + 1, 2).Clear
        End If
    Next i
End sub

Ensuite je ne connais pas bien ce que tu utilises pour récupérer lastrow, mais assure toi que c'est bien un entier (pour en être sûr le mieux est de définir tes variables, dim lastrow, i as integer; ce que beaucoup conseillent étant de mettre "option Explicit" en en-tête de chaque module)

En espérant avoir été utile,

Stormh

Edit : Je viens de me rendre compte que sans doute tu n'as pas essayé de loop par ligne, si c'est le cas, je te propose le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub M()
    Dim N As Long
    Dim i, j as integer
'On initialise les deux variables de boucle
    i = 2
    j = 2
'On boucle par ligne
    While cells(i, j + 1) <> ""
    'On boucle par colonne
        While cells(i, j + 1) <> ""
            Set rlook = Range(Cells(i, j + 1), Cells(i, j + 1))
            If Application.WorksheetFunction.CountIf(rlook, Cells(i, j + 1)) > 0 Then
                Cells(i, j + 1).Clear
            End If
        'On incrémente la colonne
            j = j + 1
        Wend
    'On incrémente la ligne
        i = i + 1
    'On réinitialise la colonne
        j = 2
    Wend
End sub

Bien sûr à adapter selon ton besoin, comme je n'ai pas d'application concrète du code, cela peut ne pas marcher dans ton cas précis.

[Manu3100]

Merci StormH c'est ce que je chercher à faire.

Comment faire pour limiter ce code par exemple de la colonne G jusqu'à K ?

Merci encore pour ton aide

[StormH]

Ici, la colonne est représenté par l'entier "j" avec A=1, B=2, ..., Donc du coup ça nous donne 7 pour G et 10 pour K. Tu dois donc initialiser la variable j à 7 (et donc la réinitialiser aussi à 7) de manière à partir de G, et ensuite modifier la condition de ta boucle "while" pour un "j < 11" ( pour qu'elle s'arrête à 10, donc la colonne K). Ou alors tout simplement tu remplaces le "while" par un "for" avec "for j=7 to 10", c'est toi qui vois ce que tu préfères ! D'un point de vue complexité c'est strictement la même chose

Bonne journée,

Stormh

[Manu3100]

Ici, la colonne est représenté par l'entier "j" avec A=1, B=2, ..., Donc du coup ça nous donne 7 pour G et 10 pour K. Tu dois donc initialiser la variable j à 7 (et donc la réinitialiser aussi à 7) de manière à partir de G, et ensuite modifier la condition de ta boucle "while" pour un "j < 11" ( pour qu'elle s'arrête à 10, donc la colonne K). Ou alors tout simplement tu remplaces le "while" par un "for" avec "for j=7 to 10", c'est toi qui vois ce que tu préfères ! D'un point de vue complexité c'est strictement la même chose

Bonne journée,

Stormh

Merci énormément!!!