Bien le bonjour,

Etant très mauvais en VBA, je me permet de poster sur ce forum car j'ai un petit peu de mal sur quelque chose.

En fait je désire vérifier la valeur d'une cellule, sauf que cette cellule changera constament donc je me suis servis d'une double boucle (je pense que c'est pas la méthode la plus propre mais je fais avec mes compétances)
sauf que derrière je n'arrive pa écrire ma fonction "IF"

Voic une partis de mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CreateAfile()
For i = 4 To 37
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("d:\test\Ajt Import (" & Range("B" & i).Value & ").txt", True)
    a.WriteLine ("#Modele  : Ajt Import (Member X),")
    For j = C To Z
        If Cells(i, c).Value = "oui" Then
            a.WriteLine ("ip vpn-instance" & Range("B" & i).Value & ")
        End If
    Next j
    a.WriteLine ("#")
    a.Close
Next i
End Sub
Le problème se situe ici:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
        If Cells(i, c).Value = "oui" Then
            a.WriteLine ("ip vpn-instance" & Range("B" & i).Value & ")
        End If
Tout fonctionne jusqu'a la partis du "IF" et sans doute la ligne juste en dessus mais là je pourrais me débrouiller en me servant du reste.

D'avant merci pour vos réponses.