Fonction IF avec double variable

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:

---

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:

---

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.

tu utilises j pour ta deuxième boucle mais tu écris Cells(i,c). Erreur d'innatention ou de recopie ?

Citation:

---

Envoyé par Soraphiroth

tu utilises j pour ta deuxième boucle mais tu écris Cells(i,c). Erreur d'innatention ou de recopie ?

---

Il s'agissait d'une erreur de recopie.

Un collègue m'apporter de l'aide et nous avons reussi à faire quelque chose de beaucoup plus propre et complémtement fonctionnement et plus facile d'utilisation pour les utilisateurs landa.

J'ai déclarer dans excel un nom qui représente la "zone_travail" ce qui permet aux utilisateurs, si il y a des rajouts à faire, de ne changer que cette zone.

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

Sub CreateAfile() 'Déclaration de la zone de travail Dim tableau As range Set tableau = Worksheets("XXXX").range("zone_travail") 'boucle pour chaque lignes For Each ligne In tableau.Rows Set fs = CreateObject("Scripting.FileSystemObject") 'Création du fichier "Ajt Import($VRF_name).txt" Set a = fs.CreateTextFile("d:\test\Ajt Import (" & Cells(ligne.Row, "B").Value & ").txt", True) 'ecriture dans le fichier a.WriteLine ("ip vpn-instance " & Cells(ligne.Row, "B").Value & "") a.WriteLine ("#") 'Boucle pour chaque colonne For Each colonne In tableau.Columns 'Test de la présence d'un import If Cells(ligne.Row, colonne.Column) = "OUI" Then 'ecriture dans le fichier a.WriteLine ("vpn-target 65534:" & Cells(3, colonne.Column).Value & " import-extcommunity") End If Next 'ecriture dans le fichier a.WriteLine ("#") a.WriteLine ("return") a.WriteLine ("#") a.Close Next End Sub

---