Discussion :

[Malo1992]

Rebonjour, je ne comprend pas pourquoi le débogage pas détaillé de ce bout de code ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
 For LA = 2 To NbData - 1
       If LA - 2 = False Then
            Eff = Doublon(LA, bTabDoublons)
            Cells(LB, B).Value = Cells(LA, A).Value
            Cells(LC, C).Value = ni
            LB = LB + 1
            LC = LC + 1
       End If
 
     Next LA

La flèche jaune passe directement du "For" au "Next LA" sans rien déboguer.

LA-2 correspond à l'indice d'un tableau de doublons déjà fait et NbData correspond au nombre total de valeurs qu'on a.

Ce code doit normalement récupérer les résultats de la fonction Doublon appelée ici par EFF.
Puis on demande à ce que ni récupérer s’écrive dans une cellule de la colonne C et que la valeur de Cells (LA,A) s'écrive dans la cellule (LB, B).

De l'aide svp!

Merci d'avance.

[SfJ5Rpw8]

Quand tu est sur la ligne FOR passe le curseur sur la variable NbData et dis nous sa valeur

[Daniel.C]

Bonjour,

A part le fait que la condition :

Code :

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

If LA - 2 = False Then

n'est vraie que pour LA = 2, le reste doit dépendre de tes données. Peux-tu les mettre en PJ ?

[Malo1992]

j'ai réussi à débloquer un partie parce que effectivement Nbdata n'allait pas dès le départ.
Par contre maintenant j'ai un autre pb, j'ai initialisé "ni=1", ni est une valeur et je voudrais l'inscrire dans une cellule. J'ai écrit :

Code :

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

Cells(LC, C).Value = ni

Mais rien ne s'affiche je ne comprend pas pourquoi?

ni est une données que j'incrémente dans une boucle donc pour chaque nouvelle cellule de la colonne C j'ai un ni+1.

[SfJ5Rpw8]

ben continue le débogage et lorsque tu est sur la ligne Cells(LC, C).Value = niregarde les valeurs des variables LC, C et ni ....

de plus ton code serait plus "propre", "solide".. si tu précisais la feuille concernée devant tous tes Cells :

Code :

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

ThisWorkbooks.Sheets("Feuil1").Cells(LC, C).Value = ni

[nchal]

Bonjour le forum,

As-tu bien initialiser LC et C, car si ils sont vides ("Nothing" quand tu passes ton curseur dessus en mode debug) ou considéré comme String ou autre, c'est normal que sa ne marche pas.