(VBA excel) recherche de ligne et selection

Résolu/Fermé

lostmain58 Messages postés 26 Date d'inscription mardi 20 décembre 2022 Statut Membre Dernière intervention 26 janvier 2023 - 21 déc. 2022 à 12:54
lostmain58 Messages postés 26 Date d'inscription mardi 20 décembre 2022 Statut Membre Dernière intervention 26 janvier 2023 - 22 déc. 2022 à 10:13

Bonjour,

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

A voir également:

(VBA excel) recherche de ligne et selection
Aller à la ligne excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide
Liste déroulante excel - Guide
Partage de photos en ligne - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23430 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 janvier 2025 Ambassadeur 1 559
21 déc. 2022 à 12:58

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.

lostmain58 Messages postés 26 Date d'inscription mardi 20 décembre 2022 Statut Membre Dernière intervention 26 janvier 2023 3
21 déc. 2022 à 13:06

Re,

Comment faire pour que le programme parcoure toutes les lignes ?

yg_be Messages postés 23430 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 janvier 2025 1 559 > lostmain58 Messages postés 26 Date d'inscription mardi 20 décembre 2022 Statut Membre Dernière intervention 26 janvier 2023
21 déc. 2022 à 13:53

On peut s'arreter dès qu'il y a une ligne avec une colonne 1 vide?

lostmain58 Messages postés 26 Date d'inscription mardi 20 décembre 2022 Statut Membre Dernière intervention 26 janvier 2023 3 > yg_be Messages postés 23430 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 janvier 2025
21 déc. 2022 à 14:07

oui sans soucis

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

Je pense que, si tu prends le temps de te former et de comprendre le code, tu trouveras par toi-même comment l'adapter à tes différentes situations.

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?