boucle ne fonctionne pas [Résolu]

[fabrice44]

bonjour,

je viens de faire une boucle do loop mais elle ne fonctionne pas est ce que vous pourriez m'éclairer

merci

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
Sub artt()
 
Dim a As Integer ' colonne tableau congés
Dim b As Integer 'ligne tableau congés
Dim c As Integer 'colonne petit tableau artt
Dim d As Integer 'ligne petit tableau artt
a = 14
b = 3
c = 14
d = 7
 
 
Do While b <> 13
    If Worksheets("fc 2007").Cells(c, d) = 1 Then
        While a <> 42
        Worksheets("fc 2007").Cells(b, a) = "r"
        a = a + 2
        Wend
    Else
        While a <> 42
        Worksheets("fc 2007").Cells(b, a) = ""
        a = a + 2
        Wend
    b = b + 1
    c = c + 1
Loop
 
End If
End Sub

[ouskel'n'or]

Ajoute les balises code. Sélection du code + 1 clic sur #
Pour corriger, utilise le bouton Editer en bas de la fenêtre

[fabrice44]

excuse moi mais je ne comprend pas ton message

peux tu être plus clair

d'avance merci

[jacques_jean]

Bonjour Fabrice44,

Vous écrivez :

Do While b <> 13
If Worksheets("fc 2007").Cells(c, d) = 1 Then
While a <> 42
Worksheets("fc 2007").Cells(b, a) = "r"
a = a + 2
Wend
Else
While a <> 42
Worksheets("fc 2007").Cells(b, a) = ""
a = a + 2
Wend
b = b + 1
c = c + 1
Loop

Les 2 conditions sont exactement les mêmes ?

[ouskel'n'or]

Envoyé par fabrice44

excuse moi mais je ne comprend pas ton message
peux tu être plus clair
d'avance merci

Tu dois placer ton code entre deux balises [CODE] et [/CODE]
Pour ça, quand tu rédiges ton message, tu as une icône # qui permet de le faire. Tu sélectionnes donc ton code, tu fais un clic sur l'icône et c'est tout bon.
Pour corriger ton code, tu retournes sur ton message et tu fais un clic sur "Editer"
A+

[fabrice44]

en fait cela dépend du contenu de ma cellule

si cell(c,d)=1 alors "r" sinon ""

[fabrice44]

ca y est je crois avoir compris

j'ai un peu de mal pardon

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
Sub artt()
 
Dim a As Integer ' colonne tableau congés
Dim b As Integer 'ligne tableau congés
Dim c As Integer 'colonne petit tableau artt
Dim d As Integer 'ligne petit tableau artt
a = 14
b = 3
c = 14
d = 7
 
 
Do While b <> 13
    If Worksheets("fc 2007").Cells(c, d) = 1 Then
        While a <> 42
        Worksheets("fc 2007").Cells(b, a) = "r"
        a = a + 2
        Wend
    Else
        While a <> 42
        Worksheets("fc 2007").Cells(b, a) = ""
        a = a + 2
        Wend
    b = b + 1
    c = c + 1
Loop
 
End If
End Sub

[ouskel'n'or]

Envoyé par Tu

je viens de faire une boucle do loop mais elle ne fonctionne pas est ce que vous pourriez m'éclairer

Ça ne nous éclaire pas beaucoup. Quel est le problème ? Qu'obtiens-tu et que souhaites-tu obtenir ? Ton code semble correct, quelle est l'erreur que tu observes ?

[fabrice44]

le message

erreur de compilation

boucle sans do

je voudrais juste remonter au niveau de loop pour refaire une boucle

[ouskel'n'or]

J'ai failli te le dire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Do While b <> 13
    If Worksheets("fc 2007").Cells(c, d) = 1 Then
       do While a <> 42
            Worksheets("fc 2007").Cells(b, a) = "r"
            a = a + 2
       Loop
     Else
       Do While a <> 42
            Worksheets("fc 2007").Cells(b, a) = ""
            a = a + 2
       Loop
       b = b + 1
       c = c + 1
    endif
Loop

Ce n'est pas du basic, c'est du VBA
En fait je crois que tu avais simplement oublié le endif

Edit
Je viens de vérifier, il était simplement mal placé

PS - J'utilise toujours do While ou Do Until qui permettent tous les deux de faire un "Exit do" en cas de nécessité.

[fabrice44]

j'ai toujours un message identique

boucle sans do

[fabrice44]

la je suis dans une boucle sans fin, je ne sais plus comment l'arreter

au secours!!!!!!!!!!!!!!!!!!!!!!!

[ouskel'n'or]

Ctrl + Pause pour l'arrêter
Montre ton code modifié
A+

[fabrice44]

c'est bon ca fonctionne !

je te remercie beaucoup pour ton aide
meme si je n'ai pas bien compris le coup du basic et du vba

merci à la prochaine