Bonjour à tous,

mon souci est assez bête en fait, j'aimerai simplement faire boucler mon code mais je ne vois pas comment y arriver.
De façon à ce que dès qu'on rentre une ligne dans ma feuille excel et que l'on coche cette ligne. Lorsque l'on clique sur exporter tout, toutes les lignes remplies soient automatiquement exporter dans un fichier texte.
Pour l'instant cela fonctionne très bien avec le code que j'ai tapé, mais je dois faire le cas pour chaque ligne...

Si quelqu'un peut m'aider et me mettre sur la voie ce serait sympa.

Merci de votre réponse.

Cédric

Mon fichier :
Copie.xlsm

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub grosBouton()
 
    Open "C:\fichier.txt" For Output As #1
    Print #1, ""
    Close #1
 
    Kill ("C:\fichier.txt")
 
    If ThisWorkbook.Sheets(1).CheckBox1.Value = True Then
 
        ' Création d'un fichier texte
 
        Dim enterEtTab As String
        Dim str As String
 
        ' crée le fichier texte
        Open "C:\fichier.txt" For Append As #1
 
        enterEtTab = vbCrLf & vbTab
 
        ' element a ecrire dans le fichier
        str = "DEBUT" & enterEtTab & "'" & Cells(3, 4) & "'" & enterEtTab & _
        "NOM " & "'" & Cells(3, 3) & "'" & enterEtTab & "ENTER_ATTRIBUTES" & _
        enterEtTab & vbTab & "'" & "AGE" & "' " & "'" & Cells(3, 5) & "'" & enterEtTab & vbTab & _
        "'" & "GROUPE" & "' " & "'" & Cells(3, 7) & "'" & enterEtTab & "END_ATTRIBUTES" & vbCrLf & "FIN" & vbCrLf
 
        ' écrire dans le fichier
        Print #1, str
        Close #1
 
     Else
     End If
 
     If ThisWorkbook.Sheets(1).CheckBox2.Value = True Then
 
        Dim enterEtTab2 As String
        Dim str2 As String
 
        ' crée le fichier texte
        Open "C:\fichier.txt" For Append As #1
 
        enterEtTab2 = vbCrLf & vbTab
 
        str2 = "DEBUT" & enterEtTab2 & "'" & Cells(4, 4) & "'" & enterEtTab2 & _
        "NOM " & "'" & Cells(4, 3) & "'" & enterEtTab2 & "ENTER_ATTRIBUTES" & _
        enterEtTab2 & vbTab & "'" & "AGE" & "' " & "'" & Cells(4, 5) & "'" & enterEtTab2 & vbTab & _
        "'" & "GROUPE" & "' " & "'" & Cells(4, 7) & "'" & enterEtTab2 & "END_ATTRIBUTES" & vbCrLf & "FIN" & vbCrLf
 
        ' écrire dans le fichier
        Print #1, str2
        Close #1
     Else
     End If
 
End Sub