(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
Liste déroulante excel - Guide
Si et excel - Guide
Site de vente en ligne particulier - Guide
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22846 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 juin 2024 1 473
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 2
21 déc. 2022 à 13:06

Re,

Comment faire pour que le programme parcoure toutes les lignes ?

yg_be Messages postés 22846 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 juin 2024 1 473 > 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 2 > yg_be Messages postés 22846 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 juin 2024
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

[référencement] Ne pas être référencé

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

Discussions similaires

Newsletters