Erreur de la 2ème condition dans ma boucle

dg62

XLDnaute Barbatruc

• 19 Juillet 2006

• #2

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.

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 19 Juillet 2006

• #3

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:

PHP:

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

 

Dernière édition: 19 Juillet 2006

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2006

• #4

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2006

• #5

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

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 19 Juillet 2006

• #6

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

 

Pièces jointes

• transfert.zip

  10.7 KB · Affichages: 21
• transfert.zip

  10.7 KB · Affichages: 22
• transfert.zip

  10.7 KB · Affichages: 22

Dernière édition: 19 Juillet 2006

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2006

• #7

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

Temjeh
vois si cela te convient,à bientôt

 

Pièces jointes

• transfertTemjeh.zip

  12.1 KB · Affichages: 26
• transfertTemjeh.zip

  12.1 KB · Affichages: 21
• transfertTemjeh.zip

  12.1 KB · Affichages: 23

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 19 Juillet 2006

• #8

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 20 Juillet 2006

• #9

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

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

 

Pièces jointes

• transfertTemjeh.zip

  14 KB · Affichages: 17
• transfertTemjeh.zip

  14 KB · Affichages: 20
• transfertTemjeh.zip

  14 KB · Affichages: 19

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Juillet 2006

• #10

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.

 

Pièces jointes

• TransfertTemjeh V2.xls

  39 KB · Affichages: 54

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 20 Juillet 2006

• #11

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

 

Vote positif 0 Vote négatif