Problème If-Then-Else

Itori · 12 Novembre 2005

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 :

Code:

    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...

Code:

    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 · 12 Novembre 2005

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 · 12 Novembre 2005

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 · 12 Novembre 2005

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 · 12 Novembre 2005

Re,

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

Charly

PascalXLD · 12 Novembre 2005

Bonjour

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

Ca fait plus joli

soft · 12 Novembre 2005

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 · 12 Novembre 2005

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 · 12 Novembre 2005

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 ?

Problème If-Then-Else

Itori

Guest

Charly2

Nous a quittés en 2006

soft

XLDnaute Occasionnel

Charly2

Nous a quittés en 2006

Charly2

Nous a quittés en 2006

PascalXLD

XLDnaute Barbatruc

soft

XLDnaute Occasionnel

Charly2

Nous a quittés en 2006

Itori

Guest

Discussions similaires