InputBox renseignant une formule
Bouyax
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
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!
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!
A voir également:
- InputBox renseignant une formule
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
merci pour ta réponse, cependant l'erreur persiste et me surligne la ligne "Range("G11") = RV "
Une idée de la cause?
Effectivement, je n'utilise que qui rend False alors qu'avec c'est