Discussion :

[Greg2506]

Bonjour tout le monde,

J'ai besoin de vous. Je suis complètement largué sous vba.

Voici ce que je cherche à faire :
Dans une même feuille ("PANNE" dans mon cas), j'ai dans toutes les cellules de la colonne C une liste déroulante contenant une liste de référence (chaque référence à sa feuille avec le même nom). Dans une autre colonne (colonne I) dans chaque cellule je rentre un texte correspondant à un repère topo.
Dans les autres feuilles (une feuille par référence), j'ai dans la colonne BA les repères topo et dans la colonne BB les codes articles.
Ce que j'aimerais faire : dans la feuille "PANNE", à chaque ligne je choisis la référence dans la liste déroulante (colonne C) et je rentre le repère topo (colonne I). Je souhaite rechercher le repère topo dans la feuille correspondant à la référence choisie et si j'ai une correspondance, mettre dans la colonne J (Feuille "PANNE") le code article qui lui ai associé au repère topo.

Si quelqu'un peut m'aider, svp.
Merci d'avance !

PS : si je ne suis pas clair dans mon explication, je peux mettre le ficher excel.

[EngueEngue]

rajoute la structure de ton classeur

[Greg2506]

Qu'est-ce que tu entends par "structure" ?

[EngueEngue]

un exemple de ton classeur avec ce que tu veux faire... les données peuvent être changées.

[Dawid's]

Ca ne serait pas plus simple de récupérer tes infos en RECHERCHEV ??
Après pour la taille du fichier (PANNE) ça risque de grimper

Sur combien de ligne de ta colonne C tu travailles ?

[Greg2506]

@EngueEngue
Voici un exemple de ce que je recherche.

@Dawid's
J'ai voulu utiliser RECHERCHEV mais sans succès (en même temps je suis un novice dans Excel et VBA). Je n'arrivais pas à gérer la gestion automatique des feuilles pour aller chercher le code article dans la feuille sélectionnée dans une des cellules de la colonne C (Feuille "PANNE").

[EngueEngue]

Voilà le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto()
Dim ref As String, topo As String
Dim i As Long, j As Long
 
For i = 2 To Sheets("Pannes_NUM").Range("C1").End(xlDown).Row
    ref = Mid(Sheets("Pannes_NUM").Cells(i, 3), 6, 3)
    topo = Sheets("Pannes_NUM").Cells(i, 9)
    For j = 2 To Sheets(ref).Range("BA1").End(xlDown).Row
        If topo = Sheets(ref).Cells(j, 53) Then
            Sheets("Pannes_NUM").Cells(i, 10) = Sheets(ref).Cells(j, 54)
        End If
    Next j
Next i
End Sub

Par contre comme a dit notre ami il est préférable de faire une rechercheV
pour retirer le nom du classeur il suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(DROITE(C2;6);3)

[Greg2506]

Merci EngueEngue, ça marche !!!

Quand je vois le peu de ligne de code que ça demande, je suis vert. C'est toujours quand on voit la réponse, qu'on se dit qu'au final cela paraissait "simple". En même temps quand on n'y connait rien, bah on n'y connait rien.

J'ai une autre question :
Comment je devrais m'y prendre si je voudrais faire renseigner les cellules "Code article", "Référence" et "Désignation" à chaque fois que je remplisse une ligne ? Donc éviter de faire un balayage complet de toutes les lignes de la feuille "PANNE".

PS : je suis content, ce soir je me coucherais moins bête