InputBox renseignant une formule Fermé

Question

Bonjour, 

Après une importation de données via SAP je souhaite appliqué plusieurs formules à mes données ressorties. J'applique 3 formules, une CNUM pour garder l'entité de l'opération en version chiffre, une formule d'écart, et une recherche v qui récupère la donnée sur un fichier prévisionnel antérieur.

Cependant, selon la personne qui utilisera le fichier, la recherche v n'est pas la même, je chercher donc à faire remplir ma recherche v via un inputbox, mais le code que j'ai jusqu'à maintenant bug sur la formule (si je rentre une donnée mon code fonctionne)

Voici le code:

derniere_ligne = Range("B11").End(xlDown).Row
    
    Range("A11").Select
    ActiveCell.FormulaR1C1 = "=VALUE(RC[1])"
    Range("A11").AutoFill Destination:=Range("A11:A" & derniere_ligne), Type:=xlFillDefault
    
    Range("H11").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
    Range("H11").AutoFill Destination:=Range("H11:H" & derniere_ligne), Type:=xlFillDefault
   
    
    Dim RV As String
    
 'saisie de la recherche V
    RV = InputBox("Saississez votre RechercheV")
    Range("G11") = RV
    Range("G11").AutoFill Destination:=Range("G11:G" & derniere_ligne), Type:=xlFillDefault

Merci d'avance pour vos réponses!

gbinforme · Answer

Bonjour, 
 
Il faut tester ta saisie et pour une fois tu dois avoir un type Variant
Dim RV As Variant
'saisie de la recherche V
RV = InputBox("Saississez votre RechercheV") 
if RV = False Then exit sub

InputBox renseignant une formule

1 réponse

Discussions similaires