Bonjour à tous,

J'ai fait une fonction qui permet de rechercher des objets, cette fonction fonctionne, mais c'est après que ca se gatte, car je n'arrive pas ac qu'il me mette sur la bonne ligne le nombre à prendre, le lieu et le le contact, il recommence depuis le depuis du tableau
Des captures pour que vous puissiez mieux comprendre
Quand je clique sur Bouton (cerclé), il m'affiche, ce que je veux rechercher

Exemple Poëlle
Il me dit qu'il l'a trouvé

Et c'est ici que ca se gatte
"Donne le lieu du camp", je donne le lieu
Ex: Test

Et la, il va pas le mettre sur la ligne Poëlle, mais sur la 7ème ligne du tableau

Alors que je voudrais que ca aille sur la ligne Poëlle ou autre ligne en fonction de ce que j'aurais mis avant

Voici le code VBA
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub NbreEmprunter_Outils_Cuisine_Test()
Dim Trouve As Range
Dim Valeur_cherchee As String
Dim Ligne
Dim Ligne1
Dim Nombre
Valeur_cherchee = InputBox("Valeur recherchée?")
    Set Trouve = Sheets("OutilsCuisine (2)").Columns(4).Cells.Find(what:=Valeur_cherchee)
        If Trouve = Valeur_cherchee Then
            Trouve.Select
            rep = MsgBox("trouvée")
            Ligne = 7
Ligne1 = 7
Nombre = 0
Nombre1 = 0
Colonne = 8
Colonne1 = 9
While (Worksheets("OutilsCuisine (2)").Cells(Ligne, 7).Value <> "")
    Nombre = Nombre + 1
Cells(Ligne, Colonne).Value = InputBox("Donnez le lieu du camp", "Lieu du camp")
Ligne = Ligne + 1 ' Passage à la ligne suivante
Wend
While (Worksheets("OutilsCuisine (2)").Cells(Ligne1, 7).Value <> "")
    Nombre1 = Nombre1 + 1
Cells(Ligne1, Colonne1).Value = InputBox("Donnez le contact", "Personne à contacter")
Ligne1 = Ligne1 + 1 ' Passage à la ligne suivante
Wend
        Else
 
            Trouve.Select
            rep = MsgBox("Non Trouvé", vbInformation, "Trouve")
        End If
 
 
 
End Sub

phildu80