[VBA] Insérer une variable dans une formule Excel via une macro

Bonjour,

Je souhaite mettre une variable dans une formule Excel via une macro en VB.
Voici un bout du code et la ligne que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub EcritureData(ByVal sFile As String) Dim x As Long Dim Data As String Dim NumFichier As Integer Dim cellule As Integer x = 1 NumFichier = FreeFile Open sFile For Input As #NumFichier Do While Not EOF(NumFichier) Line Input #NumFichier, Data If x = 1 Then Cells(x, 5) = Data ElseIf x = 2 Then Range("A2").Formula = "=GAUCHE("+Cstr(Data)+";CHERCHE(" ";"+Cstr(Data)+"))" // LA LIGNE EN QUESTION End If x = x + 1 Loop Close #NumFichier End Sub

---

J'ai toujours cette erreur : "Erreur de Syntaxe". Je pense que cela provient du fait que j'utilise la fonction CHERCHE car je l'utilise pour trouver un espace dans ma chaine de caractère qui se présente comme tel : 115 "xxx.xxx.xxx.xxx". Comme vous l'aurez compris j'aimerais directement extraire de ma chaine le "115". En espérant vous avoir apporter assez d'info.

Sticks_678

J'ai fais un deuxième essai en mettant l'espace dans une variable pour ne plus avoir le soucis des doubles quotes qui pourrait poser problème.

Code:

---

1 2 3 4

Dim espace as String espace = " " //......... Range("A2").Formula = "=GAUCHE(" + Data + ";CHERCHE(" + espace + ";" + Data + "))"

---

L'erreur a maintenant changé : "Erreur définie par l'application ou par l'objet".
Si cela peut apporter d'autre piste pour une éventuelle résolution :)

Sticks_678

Bonjour sticks_678,

Alors :

1. Je te suggère, lorsque tu concatènes des chaines de caractères, de plutôt utiliser l'opérateur "&" plutôt que "+".
   C'est plus clair pour toi et ça évite des erreurs.
2. Tu utilises la méthode Formula. Or, Excel est par nature en anglais quand tu utilises les macros.
   Ainsi, il est nécessaire d'utiliser la méthode FormulaLocal pour que le VBA se convertisse bien dans la langue française (pour faire simple).
3. Enfin, et là est le plus gros point, tu cherches à utiliser la formule suivante =GAUCHE("une valeur";CHERCHE(" ";"une valeur")).
   Comme tu peux le voir, j'ai des guillemets pour bien dire à Excel qu'il s'agit d'une chaine de caractères. Ce que tu dois donc reproduire quand tu essayes de placer ta formule par VBA.
4. Or, l'opération guillemet (") en VBA est déjà utilisé. Ainsi, pour lui dire qu'il s'agit du caractère guillemet et pas de l'opération pour définir les chaines de caractères VBA, tu dois utiliser le double guillemet : "".
5. Ainsi, voici un exemple que je te laisse adapter :
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

   Option Explicit   Sub EcritureData() 'ByVal sFile As String)   Dim x As Long Dim Data As String Dim NumFichier As Integer Dim cellule As Integer Dim oStr As String   x = 2   NumFichier = FreeFile 'Open sFile For Input As #NumFichier 'Do While Not EOF(NumFichier) 'Line Input #NumFichier, Data   Data = "12345 6789"   If x = 1 Then Cells(x, 5) = Data ElseIf x = 2 Then Range("A2").FormulaLocal = "=GAUCHE(""" & CStr(Data) & """;CHERCHE("" "";""" & CStr(Data) & """))" End If   x = x + 1 'Loop 'Close #NumFichier End Sub

   ---

N'hésite pas à revenir vers le forum. :ccool:

Cordialement,
Kimy

Je te remercie pour ta réponse.
Il me semble que tes conseils m'ont permis de résoudre quelques problèmes et m'en a appris beaucoup puisque je débute en VB mais malheureusement j'ai toujours l'erreur : "Erreur définie par l'application ou l'objet". Si tu as une autre solution je suis preneur.


Je t

sticks_678,

La solution est là ! ^^
L'erreur restante se situe à 30cm de l'écran. ;)

Je te propose de suivre ce que je viens de t'écrire - en repartant peut-être de zéro pour la création de ta formule.

Si tu ne parviens pas à trouver l'erreur, post ton code en dessous.

Cordialement,
Kimy

Bonjour Kimy,

J'ai résolu mon problème. Enfaite ma chaine de caractère était comme ceci : 10 "xxx.xxx.xxx.xxx". Les guillemets à l'intérieur de cette chaine posait problème, je les ai donc supprimés ce qui m'a permis de résoudre mon problème.

Je poste mon code si jamais des personnes ce retrouve avec le même problème en sachant qu'il n'est pas optimisé à cause du niveau que j'ai dans ce langage !
Je te remercie donc pour ton aide qui m'a été très instructive et surtout utile !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub EcritureData(ByVal sFile As String)   Dim x As Long Dim Data As String Dim NumFichier As Integer Dim cellule As Integer Dim espace As String Dim oStr As String     x = 1   NumFichier = FreeFile Open sFile For Input As #NumFichier Do While Not EOF(NumFichier) Line Input #NumFichier, Data If x = 1 Then Cells(x, 5) = Data Data = Replace(Data, " """, " ") // Enleve le 1er guillement Data = Replace(Data, """", "") // Enleve le guillemet en fin de chaine Cells(x, 5).FormulaLocal = "=GAUCHE(""" & CStr(Data) & """;CHERCHE("" "";""" & CStr(Data) & """))" ElseIf x >= 2 Then Cells(x, 1) = Data 'Cells(x, 1).FormulaLocal = "=GAUCHE(""" & CStr(Data) & """;CHERCHE("" "";""" & CStr(Data) & """))" End If x = x + 1 Loop Close #NumFichier End Sub

---