Discussion :

[jbggg]

bonjour,

je souhaite afficher un message d'erreur si toutes les cases ne sont pas remplies. Mais j'ai un problème au niveau de ma boucle, je n'arrive pas à la faire tourner jusqu'à "point+1". voici 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
15
16
17
18
19
20
21
22
Private Sub CommandButton6_Click()
Dim point As Integer
Dim i As Integer
Dim x As Integer
 
point = Range("C5").Value
x = 11
 
Dim cel As Range, z As String
 
For i = 1 To point + 1
For Each cel In Cells(x, 2)
x = x + 1
    If cel.Value = "" Then z = z & Chr(10) & cel.Address
Next
Next i
If z <> "" Then
    MsgBox "Veuillez compléter les cellules suivantes :" & Chr(10) & z
    Exit Sub
End If
 
End Sub

merci

[alsimbad]

ta boucle ne tourne pas jusqu'a point +1 mais point +1 fois, et ce n'est pas pareil

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
 
Sub test()
Dim point As Integer
Dim i As Integer
Dim x As Integer
 
point = Range("C5").Value
x = 11
Dim cel As Range, z As String
For i = 1 To point + 1
For Each cel In Cells(x, 2)
x = x + 1
If cel.Value = "" Then z = z & Chr(10) & cel.Address
Next cel
Next i
If z <> "" Then
    MsgBox "Veuillez compléter les cellules suivantes :" & Chr(10) & z
    Exit Sub
End If
End Sub

dans le sens point +1 fois, elle fonctionne.

[Invité]

Bonjour,

Alsimbad :

ta boucle ne tourne pas jusqu'a point +1 mais point +1 fois, et ce n'est pas pareil

Je suis peut-être un peu fatigué (déjà !) ce soir, mais je n'ai pas bien compris.

J'ai cru comprendre que la boucle ne se terminait pas et dans ce cas est-ce qu'il n'y aurait pas un dépassement de capacité pour la MsgBox (combien de cellules vides trouvées ?) car j'ai essayé également et le code fonctionne bien.

Mais j'ai peut-être encore mal compris.

[jbggg]

Bonjour,

Alsimbad :

je ne comprends pas ou etait l'erreur

[ucfoutu]

Bonsoir,

Je n'ai pas testé ton code, jbggg

Je te demande seulement de faire l'effort de tenter de le commenter (pour chacune des lignes), ne serait-ce que pour te forcer à analyser chacune de tes instructions.
Commence déjà par t'interroger sur le sens d'une boucle For i to ... next dans laquelle tu n'utilises pas i !
Mais ce n'est pas tout...

Commente et tu verras toi-même !!

[Invité]

Et oui, c'est vrai, on est 2 à dire que ça fonctionne, mais on n'a pas testé en en pas-à-pas, ni jusqu'au bout.

Grave erreur.

[alsimbad]

non, j'ai testé, elle fonctionne, mais bien sur je ne l'ai testé qu'avec des petits chiffres

j'ai un problème au niveau de ma boucle, je n'arrive pas à la faire tourner jusqu'à "point+1".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 1 To point + 1

c'est une petite nuance, et en l'occurence, ça ne change rien mais ce n'est pas pareil.dans ce code, la boucle est effectué point+1 fois, a partir de 11 (valeur de x) et non pas de 1 a point+1 . ceci dit, je n'agraverais pas mon cas par une défense maladroite mais

Commence déjà par t'interroger sur le sens d'une boucle For i to ... next dans laquelle tu n'utilises pas i !

et i est utilisé pour faire ...n fois la boucle

sinon au code d'origine, j'ai seulement présisé Next cel