A
Anthony
Guest
Salut le "FORUM, salut Michel_M,
encore merci pour ton aide de la dernière fois à propos d'une recherche à partir de trois listbox... du travail de pro pour un bizut comme moi, mais bon je persiste à apprendre par "essais /erreurs" mais c'est de moins en moins simple !
ci-joint la macro suivante.
Sub testard() 'et oui chuis ptète pas bon en Vba mais chuis tétu !
'
' testard Macro
' Macro enregistrée le 22/11/2004 par Alex_anthony
'
Sheets("atest").Select
Range("a8:i50000").Select
Dim row As Range
For Each row In Selection.Cells
If row = Sheets("ajout_ref") = remontee Then '( la ça foire, je n'arrive pas à lui faire prendre en compte cette plage de cellule qui fait référence à (=gestion!$k$4:$q$4))
row.Select
End If
Next
If remontee = "" Then
la = "veuillez lancer une recherche de ligne au préalable" & Chr(13) & Chr(10) & "RECOMMENCEZ SVP"
boutons = vbOKOnly + vbInformation
titre = "Oups..!"
MsgBox la, boutons, titre
Sheets("gestion").Select
End If
'
End Sub
à première vue c'est ptète pas clair, vue le code désastreux que j'ai écrit.
donc j'explique.
le résultat d'une recherche est inscrite dans cette zone (=gestion!$k$4:$q$4)) à partir de cette ligne, je veux sélectionner la ligne correpondante dans la feuille atest! pour pouvoir modifier mon stock.(en masquant les autres si possible)
voila ...
un gib MERIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
d'avance
tony
encore merci pour ton aide de la dernière fois à propos d'une recherche à partir de trois listbox... du travail de pro pour un bizut comme moi, mais bon je persiste à apprendre par "essais /erreurs" mais c'est de moins en moins simple !
ci-joint la macro suivante.
Sub testard() 'et oui chuis ptète pas bon en Vba mais chuis tétu !
'
' testard Macro
' Macro enregistrée le 22/11/2004 par Alex_anthony
'
Sheets("atest").Select
Range("a8:i50000").Select
Dim row As Range
For Each row In Selection.Cells
If row = Sheets("ajout_ref") = remontee Then '( la ça foire, je n'arrive pas à lui faire prendre en compte cette plage de cellule qui fait référence à (=gestion!$k$4:$q$4))
row.Select
End If
Next
If remontee = "" Then
la = "veuillez lancer une recherche de ligne au préalable" & Chr(13) & Chr(10) & "RECOMMENCEZ SVP"
boutons = vbOKOnly + vbInformation
titre = "Oups..!"
MsgBox la, boutons, titre
Sheets("gestion").Select
End If
'
End Sub
à première vue c'est ptète pas clair, vue le code désastreux que j'ai écrit.
donc j'explique.
le résultat d'une recherche est inscrite dans cette zone (=gestion!$k$4:$q$4)) à partir de cette ligne, je veux sélectionner la ligne correpondante dans la feuille atest! pour pouvoir modifier mon stock.(en masquant les autres si possible)
voila ...
un gib MERIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
d'avance
tony