Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

variables et formules...

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

geoffroy

XLDnaute Nouveau
Bonjour,

j'ai un petit soucis sous VBA au niveau des valeurs de variables à exprimer au sein d'une formule excel.

en gros, je traite des données et utilise les formules excel classique (SI, OU, SOMME, etc...)
Ayant un gros volume de données, je cherche à automatiser le processus, donc utilisation d'une macro.

bilan, quand je cherche à remplir ma cellule D1 avec une formule du type : SI(test_logique, resultat oui, resultat non) où test_logique : A1 = variable1

Au lieu de remplacer variable1 par sa valeur, il laisse "variable1", et donc cela plante... 😡

Après moulte recherches, j'ai compris que "ActiveCell.FormulaR1C1 = " ne prendra que du texte même en utilisant Application.WorksheetFunction.HsGetValue(variable1) pour expliciter ma variable, donc pas bon...

une idée pour me dépanner 😕

PS: je n'explicite pas ma formule, car très longue et peu intéressante.
 
Trier par date Trier par votes
Re : variables et formules...

Bonjour

Il faut fabriquer une chaine de caractères en utilisant la concaténation :

"SI(test_logique, resultat oui, resultat non) où test_logique : A1 =" & variable1


JP
 
Vote positif 0 Vote négatif
Re : variables et formules...

jp14 à dit:
Bonjour

Il faut fabriquer une chaine de caractères en utilisant la concaténation :

"SI(test_logique, resultat oui, resultat non) où test_logique : A1 =" & variable1


JP
Cliquez pour agrandir...

Bonjour JP,

j'ai déjà essayé car dans mon test_logique, j'ai une formule du type
IF(A2=LOS & nomTab(kk, 2) , ABS(A1-A2) ,"" "" )
mais il ne remplace pas LOS & nomTab(kk,2) par sa valeur : LOS_toto_titi
(kk est un entier issu d'une boucle FOR)

et IF(A2="LOS & nomTab(kk, 2)" , ABS(A1-A2) ,"" "" ) n'est pas non plus reconnu...
 
Vote positif 0 Vote négatif
Re : variables et formules...

Bonjour (re)

 
Vote positif 0 Vote négatif
Re : variables et formules...

 
Vote positif 0 Vote négatif
Re : variables et formules...

Bonjour (re)

A tester

ActiveCell.FormulaR1C1 = "=IF(RC[-3]=" & LOS & ", " & titi " ," & toto &" )" si LOS titi et toto sont des variables
dans le cas contraire il faudra écrire chr(code) & "LOS" .....
Si on désire inscrire le caractère " dans la formule le considère comme un séparateur soit le début soit la fin d'un texte.
Pour résoudre ce problème on utilise chr(code), pour mettre "" dans une chaine on écrira chr(code)& chr(code).
Pour bien comprendre la manip il faut une variable string data1
data1= la formule et on vérifie le résultat
Macro à lancer avec F8 et regarder le résultat obtenu (il y aura des problèmes).


Code: 
Option Explicit

Sub essai()
Dim data1 As String
data1 = "=IF(RC[-3]=" & LOS & ", " & titi & "," & toto & " )"
data1 = "=IF(RC[-3]=" & Chr(34) & "LOS" & Chr(34) & ", " & titi & "," & toto & " )"
End Sub
JP
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Gestion de Fuites d'un Parc de Compteurs
Réponses
6
Affichages
362
Captain NRJ
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
618
Dégé59
D
L
  • Question Question
XL 2019 Formule ou VBA intersection tableau selon deux colonnes et une ligne
Réponses
7
Affichages
867
Hasco
S
  • Résolu(e)
XL 2016 Tri et copié coller de valeur selon date et varibale en automatique
2
Réponses
29
Affichages
2 K
StanislasC
S
R
  • Question Question
Microsoft 365 RESOLU Conditions multiples avec dates et textes dans cellule
Réponses
2
Affichages
704
richard31
R
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
1 K
albuqs
C
  • Question Question
Microsoft 365 Tarif selon code postal et poids
Réponses
5
Affichages
2 K
Gael
B
  • Question Question
Microsoft 365 Copier et coller dans une nouvelle feuille que les valeurs et non les formules
2
Réponses
25
Affichages
3 K
Bob 31
B
N
  • Question Question
XL 2010 Incrémentation en ligne d'une formule, avec saut de ligne
Réponses
1
Affichages
2 K
haonv
H
D
  • Question Question
Microsoft 365 Ancienneté salariés & Anniversaires professionnels
Réponses
5
Affichages
2 K
Dje_Ejd
D
N
  • Résolu(e)
XL pour MAC Refonte complete d'un fichier, besoin d'idées
8 9 10
Réponses
147
Affichages
13 K
Staple1600
K
  • Question Question
XL 2016 Fonction INDEX/EQUIV lorsque la valeur recherchée peut varier en colonne et ligne
2
Réponses
22
Affichages
7 K
JHA
J
M
  • Résolu(e)
Microsoft 365 formules adéquates pour planning
Réponses
13
Affichages
1 K
Mwadepaname
M
C
  • Question Question
XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient
Réponses
2
Affichages
4 K
CD38
C
F
  • Résolu(e)
XL 2019 [VBA] Problème de formule sur l'ouverture d'un CSV à cause des caractères "+" et "-"
Réponses
13
Affichages
3 K
François75020
F
R
  • Question Question
VBA : Pb pour inclure des variables dans des Range, Cells, Sum
Réponses
6
Affichages
3 K
richardM
R
D
  • Question Question
SOMME.SI.ENS Plages variables et critères élaborés
Réponses
2
Affichages
7 K
Delsaufa
D
J
  • Question Question
XL 2019 tableau de menu quotidien
Réponses
11
Affichages
2 K
jerome022
J
  • Question Question
XL 2010 boucle de comparaison pour update cellule ne fonctionne pas
Réponses
3
Affichages
1 K
Iznogood1
A
  • Question Question
XL 2016 Écrêtage et ajout de formule
Réponses
0
Affichages
791
auverland
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…