Ne trouve pas la bonne ligne

[Cougar]

Bonsoir le forum,

Dans ce code je veux que K = une combobox (évident) mais malheureusement cela n'arrive pas ???

k s'arrête toujours à la dernière non-vide (7269) mais la donnée correspondante se trouve à la ligne 6286. Pour cela ne fonctionne pas ?

For k = 2 To .Range("A65536").End(xlUp).Row

If .Cells(k, 1) = Me.Combo1.Text Then
If .Cells(k, 2) = Me.Combo2.Text Then
If .Cells(k, 3) = Me.Combo3.Text Then
If .Cells(k, 4) = Me.Combo4.Text Then
Ligne = k
End If
End If
End If
End If
Next

Merci

 

[Pierrot93]

Re : Ne trouve pas la bonne ligne

Bonjour Cougar, toutes et tous,

Je ne comprends pas bien ton code, tu mets 4 conditions, pour chaque lignes tu testes 4 colonnes, alors si les 4 cellules répondent aux 4 critères tu appliques ligne = k.

A priori, si sur la ligne 6286, tes colonnes 1, 2, 3 et 4 correspondent à tes 4 combobox ca devrait marcher.

Je ne suis pas sur que ma compréhension de ton problème soit la bonne, sinon met un fichier pour que l'on puisse regarder de plus près.

Bonne journée
@+

 

[Gorfael]

Re : Ne trouve pas la bonne ligne

Bonsoir le forum,

Dans ce code je veux que K = une combobox (évident) mais malheureusement cela n'arrive pas ???

k s'arrête toujours à la dernière non-vide (7269) mais la donnée correspondante se trouve à la ligne 6286. Pour cela ne fonctionne pas ?

For k = 2 To .Range("A65536").End(xlUp).Row

If .Cells(k, 1) = Me.Combo1.Text Then
If .Cells(k, 2) = Me.Combo2.Text Then
If .Cells(k, 3) = Me.Combo3.Text Then
If .Cells(k, 4) = Me.Combo4.Text Then
Ligne = k
End If
End If
End If
End If
Next

Merci

salut
Comme je ne connais pas ta macro, difficile à analyser
donc, voilà comment moi je traiterais le même type de séquence

Dim Flg_test as Boolean
Dim k as Long
Dim Ligne as long
........
Flg_Test =FALSE
For k = 2 To .Range("A65536").End(xlUp).Row

If .Range("A" & K = Me.Combo1.Text _
And .Range("B" & k) = Me.Combo2.Text _
And .Range("C" & k) = Me.Combo3.Text _
And .Range("D" & k) = Me.Combo4.Text Then
Ligne = k
Flg_Test = True
exit for
End If
Next
If Flg_Test =False then
msgbox("pas valeur")
exit sub
endif
..........

J'utilises peu Cells, parce que Cells(x,112) ou Cells(x,120) sont moins parlant que Range("DH" & X) ou Range("DP" & X)

A+

 

[Cougar]

Re : Ne trouve pas la bonne ligne

Bonsoir le fil,

Rien ne fonctionne.

J'inclus l'userform pour aider.

Merci

 

[Mytå]

Re : Ne trouve pas la bonne ligne

Salut le Forum

Cougar tu n'as pas un fichier démo avec quelques lignes ?

Mytå

 

[Cougar]

Re : Ne trouve pas la bonne ligne

Salut le Forum, Mytå

Voici le lien : http://cjoint.com/?jjeskpF8sl

Merci

 

[Cougar]

Re : Ne trouve pas la bonne ligne

Bonsoir le forum,

Je refais ma requête au cas ou quelqu'un pourrait m'aider mais n'avait pas lu ma demande d'aide. 🙁((

Merci