Problème If-Then-Else

[Itori]

Bonjour,
Je suis encore novice dans la programmation en VBA et en faisant une application je viens de tomber sur un problème que je n'arrive pas à résoudre.
Voici une petite partie du programme :

    For Compteur = Position2deb To Position2fin
        For Cel = Position1deb To Position1fin
            If Range('B' & Cel).Value Like Range('B' & Compteur) Then
                Range('points!E' & Compteur) = Range('D' & Cel).Value
            End If
        Next Cel
    Next Compteur

En faisant cela mon prog marche nickel, cependant j'ai voulu ajouter un Else et là ça ne marche plus, cela m'affiche toujours la valeur du Else...

    For Compteur = Position2deb To Position2fin
        For Cel = Position1deb To Position1fin
            If Range('B' & Cel).Value Like Range('B' & Compteur) Then
                Range('points!E' & Compteur) = Range('D' & Cel).Value
            Else
                Range('points!E' & Compteur) = '-'
            End If
        Next Cel
    Next Compteur

Merci de m'éclairer sur mon erreur

PS: si jamais il est possible de faire ça plus simplement n'hésitez pas a me le dire, je suis toujours prêt a apprendre davantage

 

[Charly2]

Bonjour Itori, bonjour à toutes et à tous,

Là, je ne comprends pas non plus

Si ton premier code fonctionnait bien, le Else semble correctement utilisé et je ne saisis pas pourquoi la condition exécute cette partie de code ???

Je serais curieux de voir ton fichier pour mieux comprendre (tu enlèves les données confidentielles)...

Amicalement
Charly

 

[soft]

Bonjour Itori, Charly2, le forum,

En lisant comme ça, il me semble que :

Tu compare successivement la valeur d'une cellule et tu écris avec chaque comparaison soit la valeur de la colonne D soit '-'. Donc c'est la valeur de la dernière comparaison qui va rester au final.

Je ne sais pas si c'est clair comme explication, mais en ce qui me concerne, je mettrai la valeur '-' avant la deuxième boucle systématiquement et elle serait remplacée si la condition est trouvée dans une des comparaison.

Message édité par: soft, à: 12/11/2005 09:44

 

[Charly2]

Salut soft,

Oups ! Je n'avais pas fait attention à ça !!! :silly:

Effectivement, c'est la même cellule qui est modifiée dans toute la 2ème boucle For...

T'es trop For... To... Next

Amicalement
Charly

 

[Charly2]

Re,

Ouh là là ! J'dois pas être bien réveillé, moi :whistle:

Charly

 

[PascalXLD]

Bonjour

Allez Charly j'ais supprimé les 2 messages qui étaient doublés

Ca fait plus joli

 

[soft]

Re-bonjour le fil,

Eh Charly, pour une fois qu'un truc t'échappes ...
Prend encore un café.

Bon moi maintenant que je suis réveillé, il faut que j'aille tailler mes arbres. Bon Week-end.

 

[Charly2]

Re-Salut à tous et à Pascal76,

Merci, ça semblait boucler à l'infini : mauvaise programmation

Je vais suivre les conseils de soft et me refaire un café

Charly

 

[Itori]

Merci, effectivement je n'avais pas fait attention a ça inch:

Autrement j'ai désormais à un autre endroit une erreur 1004, comment trouvé ce qui provoque cette erreur ?