[VBA] problème de condition

[ange180190]

Bonjour à tous ,

j'ai dans mon code une condition qui dit que si la valeur de la cellule "A+Boucle" n'est pas comprise entre 30 et 49 alors elle passe à la cellule suivante et si la valeur est comprise entre 30 et 49 , elle copie la valeur de la cellule "B+Boucle" mais il y a un soucis , pour mon test dans ma cellule A9 il y avait comme valeur 0 et pourtant il m'a copié la valeur qui se trouvait dans B9...voici le code :

Boucle = 9
While (Boucle < 200)

     If wb.Sheets("Gestion dossiers").Cells(Boucle, 1).Value >= 49 And wb.Sheets("Gestion dossiers").Cells(Boucle, 1).Value <= 30 Then
     
     Boucle = (Boucle + 1)
     
     Else:

         
    wb.Sheets("Gestion dossiers").Cells(Boucle, 2).Copy Destination:=wb2.Sheets("Feuil1").Range("K1")

End If

Wend

Merci d'avance à tous ! Et vous souhaite une agréable journée ,
ange180190.

 

[Pierrot93]

Re : [VBA] problème de condition

Bonjour Ange,

regarde ceci, mais pas sur de ce que tu attends....

If Cells(1, 1).Value >= 49 Or Cells(1, 1).Value <= 30 Then

bonne journée
@+

 

[ange180190]

Re : [VBA] problème de condition

Bonjour Pierrot ,

merci je vais tester

 

[ange180190]

Re : [VBA] problème de condition

hélas quand je mets ca plus rien ne fonctionne après :s

 

[Pierrot93]

Re : [VBA] problème de condition

Re,

essaye le code ci-dessous (sur cellule A1 de la feuille active)

If Cells(1, 1).Value >= 30 And Cells(1, 1).Value <= 49 Then
    MsgBox "ok, compris entre 30 et 49"
Else
    MsgBox "non compris entre 30 et 49"

@+

 

[ange180190]

Re : [VBA] problème de condition

C'est bon Pierrot le premier code que tu m'as proposé a finalement bien fonctionné , j'ai du remplacer le 30 par 29 pour qu'il me prenne 30 en compte...c'était la que ça "bloquait"
Merci à toi , ton aide m'est tjrs précieuse

 

[Pierrot93]

Re : [VBA] problème de condition

Re,

l'autre solution eut été d'enlever le signe "=" :

Cells(1, 1).Value < 30 Then

bon après midi
@+

 

[ange180190]

Re : [VBA] problème de condition

re ,

oki merci , je m'en souviendrais pour la prochaine fois !

merci Pierrot , bon après midi à toi aussi