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 :
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Sticks_678
Partager