valeures répétées

[drisou]

Bonsoir le forum,
je suis heurté a un problème encore une fois,


je vous joint un fichier plus explicatif,
en vous remerciant

 

[Fred0o]

Re : valeures répétées

Bonsoir drisou,

Voici une modification de ton code qui semble fonctionner :

Sub num()
    Dim x As Integer, n As Integer
    Sheets("feuil2").[E1:E52].ClearContents
    n = 1
    For x = 5 To 52
        If Sheets("classé").Cells(x, 6).Value <> vbNullString Then
            'j'ai mis vbNullString, car en réalite le test va se faire aussi sur de cellules susceptible d'etre vide, contenant des formules
            Sheets("feuil2").Cells(n, 5).Value = Sheets("classé").Cells(x, 6).Value
        End If
        n = n + 1
    Next x
End Sub

A+

 

[drisou]

Re : valeures répétées

Merci Fred0o, ca marche,
j'ai encore beaucoup a apprendre,

j'étais pas loin ,mais c'était pas encore ca.lol

Merci et bonne fin de soirée.