(VBA excel) recherche de ligne et selection
RésoluBonjour,
Jai très peu d'expérience en VBA c'est pour cela que je vien vous demander de l'aide.
actuellement je suis sur un projet qui a pour but de trouver la ligne qui correspond au information que je cherche. je m'explique.
J'ai un tableau qui contient plusieurs feuilles on va prendre une nombre de 3 feuille pour exemple.
dans la colonne 1 de chaque feuille il Y a a le numéro de l'objet et dans la colonne 6 le numéro de commande de l'objet
le but est que grâce au programme je puisse avoir une fenêtre qui pop en disant "quel es le numéro de l'objet" un fois ça fais une autre qui pop en disant "quel est le numéro de commande".
ensuite avec les deux numéro il faut que le programme cherche ou il y a les deux numéro qui corresponde sur la même ligne. (2 numéro c'est une seul commande et une feuille un client donc les deux numéro apparaissent que dans une seul feuille)
donc le programme doit aussi chercher dans quelle feuille cette ligne se trouve.
et pour finir la bonne ligne doit être sélection.
Merci par avance de votre reponse
cordialement
j'ai reussi a faire que ça
Sub cherche_ligne()
Dim Numps As String, Numcommande As String, a As Range
Numps = InputBox("veuillez entrer le numero de la pièce")
Numpclient = InputBox("veuillez entrer le numero de commande")
Set a = Range("A:A").Find(Numps, lookat:=xlWhole)
If Not a Is Nothing Then Range(a).EntireRow.Select
End Sub
1 réponse
-
Contributeur Ambassadeur
bonjour,
le plus simple, je pense, c'est de faire une boucle qui parcoure toutes les feuilles et une autre (imbriquée) qui parcoure toutes les lignes.
-
-
Contributeur Ambassadeur@lostmain58
On peut s'arreter dès qu'il y a une ligne avec une colonne 1 vide?
-
@yg_be
oui sans soucis
-
@lostmain58
je ne comprend pas comment faire comprendre au programme qu'il doit verifié la ligne entiere et feuille par feuille
-
Contributeur Ambassadeur@lostmain58
un exemple:
Option Explicit Sub cherche_ligne() Dim Numps As String, Numcommande As String Dim ws As Worksheet, cl As Range Numps = InputBox("veuillez entrer le numero de la pièce") Numcommande = InputBox("veuillez entrer le numero de commande") For Each ws In ThisWorkbook.Worksheets 'Debug.Print ws.Name Set cl = ws.[a1] Do While cl <> "" If cl = Numps And cl.Offset(, 5) = Numcommande Then ws.Select cl.EntireRow.Select MsgBox "trouvé" Exit Sub End If Set cl = cl.Offset(1) Loop 'Do While cl <> "" Next ws MsgBox "pas trouvé" End Sub
-
