Discussion :

[Nicolas_re]

Bonjour !

Je viens vous demander votre aide pour un problème que je n'arrive pas à résoudre.
Voici actuellement mon code qui marche :

Code :

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

1
2
.Range(lettre & "2:" & lettre & LastRowEB).Formula = _
"=VLOOKUP(A2,Tempo!$A$1:$B$" & LastRowRef - 1 & ",2,0)"

Autrement dit j'applique la formule par exemple de B2 à B10 depuis une feuille qui s'appelle Tempo.

Cependant, lorsque j'essaye de remplacer "A2" par une variable, je n'obtiens plus de valeurs mais j'ai le droit à des "#NOM?".
Je n'ai donc pas d'erreur, mais pas de résultat non plus.

J'ai essayé ce code :

Code :

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

1
2
3
4
5
6
Dim test_1
    test_1 = Range("A2").Value
    MsgBox test_1
 
    .Range(lettre & "2:" & lettre & LastRowEB).Formula = _
"=VLOOKUP(test_1,Tempo!$A$1:$B$" & LastRowRef - 1 & ",2,0)"

Et ça ne marche pas..Pourtant test_1 est bien égale à "1" comme mon premier identifiant commun.

De même si j'essaye :

Code :

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

1
2
3
Dim test_1
    test_1 = "A2"
    MsgBox test_1

test_1 est bien égale à "A2" mais aucun résultat dans le VLookUP...

J'ai l'impression qu'il s'agit d'un problème de format de données ou que sais-je mais je n'arrive pas à résoudre ce souci.

Je vous remercie d'avance de votre aide !

Nicolas

[Marc-L]

Bonjour, bonjour !

Ne pas confondre texte et variable !

Mauvais code :

Code :

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

1
2
3
4
Sub Demo0()
    T$ = "A2"
    MsgBox "Valeur de T : T"
End Sub

Tout ce qui est encadré par des guillemets est du texte et non pas une variable …

Bon code :

Code :

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

1
2
3
4
Sub Demo1()
    T$ = "A2"
    MsgBox "Valeur de T : " & T
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________

Je suis Charlie, Bardo, Sousse

[Invité]

Bonjour,
tu te prend la tête pour rien!

tu écris ta formule en A2;

tu vas dans Excel, tu te place en A2, tu vas dans vb raccourci clavier [Alt] + [F11], tu ouvre la fenêtre d’exécution raccourci [ctrl] + [g],
tu écris

Code :

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

?ActiveCell.Formular1c1

et tu appuis sur la touche [Entre]
tu copy la formule exemple

Code :

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

=R[-2]C+R[-1]C

si elle contient des " tu les double ""; et en suite dans VBA

Code :

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

Range("a1:a120").formular1c1="=R[-2]C+R[-1]C"

là tu colle toute tes formule en une seule passe!

[Nicolas_re]

Je me suis peut être mal exprimé...

A la place de ça :

Code :

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

1
2
.Range(lettre & "2:" & lettre & LastRowEB).Formula = _
"=VLOOKUP(A2,Tempo!$A$1:$B$" & LastRowRef - 1 & ",2,0)"

Je souhaiterais avoir :

Code :

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

1
2
.Range(lettre & "2:" & lettre & LastRowEB).Formula = _
"=VLOOKUP(test_1,Tempo!$A$1:$B$" & LastRowRef - 1 & ",2,0)"

Où test_1 serait égal à "ID & 2" (où ID=A et on fait la concaténation avec 2).

Pourquoi quelque chose d'aussi complexe pour rien ? Parce que je ne peux pas figer "A2" dans la formule car le but est que la valeur "ID" change grâce à un calcul prévu auparavant.
En fait ma variable ID va parcourir le tableau pour récupérer la lettre de la colonne où se situe l'ID. Ensuite on concatène avec le 2, càd là où commencent mes valeurs.

Je n'applique pas la formule en A2, j'applique la formule en lettre & "2:" & lettre & LastRowEB

Merci tout de même, si vous savez comment résoudre ce souci je vous en serai très reconnaissant !

[Invité]

Code :

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

=VLOOKUP(test_1,Tempo!A1:B" & LastRowRef - 1 & ",2,0)"

on est bien d'accord tu tes très bien exprimé et ma réponse reste la même!

[Nicolas_re]

Bon finalement on a pu m'apporter de l'aide directement ! Désolé du dérangement.

Code :

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

1
2
3
4
5
6
Dim test_1 As Variant
    test_1 = ID_EB & "2"
    MsgBox test_1
 
    .Range(lettre & "2:" & lettre & LastRowEB).Formula = _
"=VLOOKUP(" & test_1 & ",Tempo!$A$1:$B$" & LastRowRef - 1 & ",2,0)"

Mon code interprétait le nom de la variable et non son contenu...

Bref, souci résolu, merci quand même !!