Erreur de la 2ème condition dans ma boucle

[Temjeh]

Bonsoir et merci de vos suggestions

Sous un bouton j'ai ceci mais la 2ème condition ne fonctionne pas:j'ai sur une autre feuille("Langues") une liste de nom nommé "Liste". Ma combo a juste des chiffres.

J'ai l'air a avoir une faute la dedans:

If Range("A" & i).Value = ComboBox1.Text And Range("E" & i).Value <> Liste Then

Condition remplie si Range("A" & i).Value = ComboBox1.Text mais que Range("E" & i).Value ne se retrouve pas dans la liste "Liste"
Merci beaucoup

Temjeh

 

[dg62]

Re : Erreur de la 2ème condition dans ma boucle

bonjour Temjeh


Tu ne peux pas tester ta variable liste directement (c'est une liste)
tu dois d'abord faire une recherche sur la liste de l'existence de Ei et ensuite faire ton test.

 

[Temjeh]

Re : Erreur de la 2ème condition dans ma boucle

Merci beaucoup dg62 (je me léve 6hrs plus tôt au Québec)
J'essais ceci mais ca boucle pas bien:

For i = 1 To Range("A65000").End(xlUp).Row

 If Range("A" & i).Value = ComboBox1.Text Then

  For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row
       If Sheets("Langues").Range("A" & v).Value = Sheets("Base").Range("E" & i).Value Then
         GoTo suivant
       else   
          Range("A" & i).Select
               Selection.EntireRow.Copy
                     Sheets("Tous").Activate
                Range("A65000").End(xlUp).Offset(1, 0).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          Sheets("Base").Select
       End if
  Next v
           
End If

suivant:

Next i

Je ne pense pas avoir besoin de else entre mes 2 boucle? ptêtre un prob de if
Toute suggestion sera la bienvenu

Merci ...Temjeh

 

[Bebere]

Re : Erreur de la 2ème condition dans ma boucle

bonjour Temjeh,Dg
Temjeh un petit essai pour t'aider

Sub e()
Dim I As Integer, L As Integer

application.screenupdating=false

With Sheets("Feuil1") 'à adapter ne pas oublier le point devant range
For I = 1 To .Range("A65000").End(xlUp).Row
If .Range("A" & I).Value = "c4" Then ' val ou cdbl

' For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row
' If Sheets("Langues").Range("A" & v).Value = 'Sheets("Base").Range("E" & i).Value Then Exit For
' Next v

L = Sheets("tous").Range("A65000").End(xlUp).Row + 1
Sheets("tous").Rows(L).EntireRow.Value = _
.Rows(I).EntireRow.Value
'ou si ta ligne va jusque "f"
L = Sheets("tous").Range("A65000").End(xlUp).Row + 1
Sheets("tous").Range("A" & L & ":F" & L).Value = _
.Range("A" & I & ":F" & I).Value
Exit For
End If
Next I
End With

End Sub

à bientôt

 

[Bebere]

Re : Erreur de la 2ème condition dans ma boucle

oups..
tu remplaces "c4" par val(combobox1.text) ou cdbl(combobox1.text)
salut

 

[Temjeh]

Re : Erreur de la 2ème condition dans ma boucle

Merci beaucoup pour ton temps

Je met un demo car elle ne fait pas tout a fait ce que je voudrais ca boucle juste 1 fois

STP jette un coup d'oeuil

Temjeh

Ps ma combo se réfère a une liste mais pour le besoin je ne l'ai pas mis

 

[Bebere]

Re : Erreur de la 2ème condition dans ma boucle

Temjeh
vois si cela te convient,à bientôt

 

[Temjeh]

Re : Erreur de la 2ème condition dans ma boucle

Merci encore pour ton aide

Ton code fonctionne tres bien sauf qui ne prends pas en compte les langues que je ne veut pas en feiil Langues.Dans la feuil tous il me les recopie quand mëme

Merci

Temjeh

 

[Bebere]

Re : Erreur de la 2ème condition dans ma boucle

bonjour Temjeh
le point final,je pense
à bientôt

 

[Robert]

Re : Erreur de la 2ème condition dans ma boucle

Bonjour Temjeh, Bebère, bonjour le forum

Une proposition avec un tableau dynamique pour les langues.

 

[Temjeh]

Re : Erreur de la 2ème condition dans ma boucle

Merci beaucoup Robert

J'avais ma réponse mais je garde ton code afin de l'examiner de plus pret.
Je ne sais pas pourquoi mais si dans ton code (ainsi que mon autre) j'ai Combobox1.value ca marche pas. Je doit y mettre .Text.

Merci

Temjeh