Discussion :

[graphikris]

Bonjour,

Je cherche a insérer la valeur insérée dans une InputBox dans une formule, bref si je tape M30 dans l'InputBox, ce choix doit venir dans ma formule de RechercheV.

Voici la formule :

Code :

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

=RECHERCHEV($A$2;Feuil2!A1:I20;EQUIV(Feuil1!$B$1;Feuil2!A1:I1);FAUX)

au lieu de la cellule $A$2 (actuellement j'ai M30), je voudrais qu'Excel comprenne que je veux, comme base dans ma rechercheV, celle saisie dans l'InputBox. Dans l'InputBox, je saisi M30

Sur la ligne 11 du code, je ne dois plus avoir $A$2 mais Processus (saisi de l'InputBox)

Voici la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Requete_Extraction_Donnees_Processus()
'
'
'
    Dim Processus As String
       
    Processus = InputBox("Veuillez saisir le processus à extraire :" & Chr$(13) & Chr$(13) & "Liste des processus :" & Chr$(13) & Chr$(13) & "M10 - M20 - M30 - M40" & Chr$(13) & Chr$(13) & "P10 - P20 - P30 - P40" & Chr$(13) & Chr$(13) & "S10 - S20 - S30 - S40" & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & "ATTENTION : la saisie est obligatoire.", "PROCESSUS")
   
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(FormulaR1C1 =$A$2,Feuil2!R[-1]C[-1]:R[18]C[7],MATCH(Feuil1!R1C2,Feuil2!R[-1]C[-1]:R[-1]C[7]),FALSE)"
    Range("B3").Select

[cerede2000]

Je ne comprends pas très bien ce que tu veux.

Tu as une inputbox, dedans tu saisi quoi ? L'adresse d'une cellule ?
Et tu veux que cette adresse vienne dans la formule avec RechercheV ?

Dans le code que tu as à collé, ceci me parait très curieux...

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(FormulaR1C1 =$A$2,Feuil2!R[-1]C[-1]:R[18]C[7],MATCH(Feuil1!R1C2,Feuil2!R[-1]C[-1]:R[-1]C[7]),FALSE)"

[graphikris]

Non pas du tout.
Actuellement en A2 je saisi M30 par exemple et grace aux formules qui se trouvent en B2,C2,D2, etc... Excel va chercher (RechercheV, Equiv) les données dans les feuilles concernées afin qu'elles apparaissent en B2, C2, Etc...

Au lieu de saisir en A2, j'ai créé une macro me permettant par le biais d'une InputBox, de saisir M30 et c'est cette saisie qui doit venir en lieu est place de $A$2 dans le code.

J'ai mis "Processus" à la place de$A$2 mais ça ne fonctionne pas

[cerede2000]

File un classeur que je regarde parce que la sans exemple de données c'est compliqué

[graphikris]

Ok,
actuellement en A2, il y a une liste deroulante que je desire supprimer afin de la remplacer par l'inputbox

[graphikris]

j'ai trouvé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Requete_Extraction_Donnees_Processus()
 
    Range("A2").Select
    ActiveCell.FormulaR1C1 = InputBox("Veuillez saisir le processus à extraire :" & Chr$(13) & Chr$(13) & "Liste des processus :" & Chr$(13) & Chr$(13) & "M10 - M20 - M30 - M40" & Chr$(13) & Chr$(13) & "P10 - P20 - P30 - P40" & Chr$(13) & Chr$(13) & "S10 - S20 - S30 - S40" & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & "ATTENTION : la saisie est obligatoire.", "PROCESSUS")
 
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(R2C1,Feuil2!R[-1]C[-1]:R[18]C[7],MATCH(Feuil1!R1C2,Feuil2!R[-1]C[-1]:R[-1]C[7]),FALSE)"
    Range("B3").Select
 
 
End Sub