[vba] Remplacer un chiffre par une variable Résolu/Fermé

Question

Bonjour, j'ai un problème pour remplacer une valeur par une variable dans ceci :

derniereLigne = Range("A65536").End(xlUp).Offset(1, 0).Row
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],movex!R2C2:R5000C5,4,FALSE)"

Je voudrais remplacer la valeur 5000 par la variable derniereLigne, mais je n'y parviens pas.

Pourriez vous me filer un coup de pouce car je suis bloqué ;)

Merci d'avance

pijaku · Answer

Bonjour 
Un p'tit coup de main? 
Ok : 
Dim derniereligne As Integer 
derniereLigne = Range("A65536").End(xlUp).Offset(1, 0).Row 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],movex!R2C2:R" + derniereligne + "C5,4,FALSE)"

En cas d'erreur, merci de signaler exactement ce que vous dit excel et/ou VBA...
Cordialement, 
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Utilisateur anonyme · Answer

Donc, ca bloque toujours, et il dit

Type incompatible

en affichant

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],movex!R2C2:R" + derniereligne + "C5,4,FALSE)"

Utilisateur anonyme · Answer

Justement ma formule a été faite par le moteur de macro, je cherche juste a remplacer ;)

Toujours la même erreur, voici ce que je vois dans mes cellule mainetnant


=RECHERCHEV(C2;movex!$B$2:RdernierLigneC5;4;FAUX)

Utilisateur anonyme · Answer

Oui, c'est un ancien affichage ca, j'ai vidé les cellule et relancé, en fait, rien ne se met dans les cellules, ca bloque avant avec toujours ce même message d'erreur et j'ai bien mis le code

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],movex!R2C2:R[" + derniereligne + "]C[5],4,FALSE)"

C'est désespérant :D

Utilisateur anonyme · Answer

Je ne peux malheureusement pas, j'ai des accès très restreint au Web, par contre, si tu as un mail, c'est possible.

tompols · Answer

Salut piep14, pikaju,
En utilisant la propriété Formula au lieu de FormulaR1C1 :
ActiveCell.Formula = "=VLOOKUP(C2,movex!B2:R" & derniereligne & ",4,FALSE)"

Utilisateur anonyme · Answer

Bravo !!! Merci à tous les deux

PS : J'avais un autre problème dans le même genre :
https://forums.commentcamarche.net/forum/affich-17270146-remplacer-par-une-variable

Merci énormément.

Utilisateur anonyme · Answer

Juste un dernier trucs, je voulais passer le tout en fonction car je l'utilise pas mal de fois

Function derniereligne(colonne)
    Dim der As Integer
    der = Range(colonne & "65536").End(xlUp).Offset(1, 0).Row
End Function

Mais j'arrive pas a retourner la valeur :s

Utilisateur anonyme · Answer

Je voulais l'appeler comme ca

derligne = derniereligne("A")
    MsgBox derligne
    ActiveCell.Formula = "=VLOOKUP(C2,movex!B2:E" & derligne & ",4,FALSE)"

C'est pas jouable ?

Désolé, je suis plus spécialiste en développement WEB :D

Utilisateur anonyme · Answer

Sub bttn5_Click()
    Range("H2").Select
    Call derniereligne("A")
    MsgBox der
    ActiveCell.Formula = "=VLOOKUP(C2,movex!B2:E" & der & ",4,FALSE)"
End Sub

Function derniereligne(colonne)
    Dim der As Integer
    der = Range(colonne & "65536").End(xlUp).Offset(1, 0).Row
End Function

Mon message d'alerte est vide :s

tompols · Answer

Re,
Utiliser de variable pour stocker le resultat d'une fonction n'est pas recommandé (Cf déclaration et portée des variables)
essaie plutot comme ceci :
Sub bttn5_Click()
    Range("H2").Select
    MsgBox derniereligne("A")
    ActiveCell.Formula = "=VLOOKUP(C2,movex!B2:E" & der & ",4,FALSE)"
End Sub

Function derniereligne(colonne)
    Dim der As Integer
    derniereligne = Range(colonne & "65536").End(xlUp).Offset(1, 0).Row
End Function

Utilisateur anonyme · Answer

Génial, grand merci les gars ;)

[vba] Remplacer un chiffre par une variable

12 réponses

Discussions similaires