Discussion :

[fabibou]

Bonjour,
Je souhaite faire une macro en VBA (je pensais utiliser Vlookup mais je ne maitrise pas) afin d'aller chercher une valeure dans un autre fichier excel en fonction de plusieurs critères (j'ai réussi avec un rechercheV). Des personnes rentrent des valeurs sur un masque de saisie (userform) et j'assigne ces valeurs à des variables. Ensuite, je souhaiterais, en fonction des valeurs de ces différents variables, trouver le code correspondant dans un tableau qui se situe dan un autre fichier excel et afficher sa valeure dans cellule excel (et qu'il m'affiche "A DEFINIR" si il ne trouve pas). Voici un exemple plus concret :



Dans le cas ou les vaiables :
type_chaine_marche = 16EEL
motorisation = BI
type_entrainement_secondaire = MILIEU
largeur_marche = 100

Alors la variable code doit être égale à PKA01001A000001 et s'

Merci de votre aide.

[jfontaine]

Si tu as réussis avec un recherchev, tu peux continuer dans cette voie en cachant la cellule si tu ne veux pas qu'elle s'affiche, et en utilisant la valeur de cette cellule pour le reste du traitement.

[fabibou]

En effet, avec un recherchev cela marche mais le problême, c'est que les valeurs que je veux comparer (le tableau est en miniature sur mon premier mail) se situes dans un fichier différent de celui où est le masque de saisie et du résulat de la rechechev. Je profite de ma macro pour ouvrir ce fichier et le refermer ensuite afin que les personnes qui rentrent les valeurs ne puissent avoir accès en tout temps à ce fichier.
C'est pour cela que je voudrais faire une macro en VBA type rechercheV.

[freyliss]

Le problème est que si tu refermes le fichier, la fonction recherchev ne trouvera pas les données qui s'y refèrent et tu auras dans ce cas dans ta cellule de résultat une erreur.

[fabibou]

En effet, et c'est pour cela que je vouvrais le faire en macro VBA pendant que mon fichier est ouvert ....
Quelqu'un aurait-il une solution ?

[jfontaine]

code a améliorer

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
 
 
Dim i As Long
 
 
With Workbooks("cible.xls").Sheets("Feuil1")
 
    Do While .Range("A" & i).Value <> ""
 
        If .Range("B" & i).Value = type_chaine_marche And _
                        .Range("C" & i).Value = motorisation And _
                        .Range("D" & i).Value = type_entrainement_secondaire And _
                        .Range("E" & i).Value = largeur_marche Then
 
 
            code = .Range("A" & i).Value
            Exit Sub
 
        End If
 
 
        i = i + 1
    Loop
 
 
 
 
 
End With