Discussion :

[Tatayz]

Bonjour tout le monde,

je débute en vba et même en informatique tout court et j'aurais
besoin d'aide en ce qui concerne un code de la forme suivante :

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
For j = 2 To 1000
 
        If (a = Cells(j, 2).Value) And (b = Cells(j, 4).Value) Then
            If (Cells(j, 6).Value <> "") Then
                If Not (Cells(j, 6).Value = c)  Then
                Next j
                End If
            End If
            If (Cells(j, 6).Value <> "") Then
                If Not (Cells(j, 7).Value = d)  Then
                Next j
                End If
            End If
            If (Cells(j, 6).Value <> "") Then
                If Not (Cells(j, 8).Value = e)  Then
                Next j
                End If
            End If
 
         MsgBox(Cells(j, 9).Text) 
 
         Else
            Next j
      End If

Il y a de toute évidence un problème avec la structure du code mais je ne parviens à la résoudre. J'ai essayé de remplacé le Next j par un GoTo avec une étiquette dont le code était Next j et j'ai essayé en utilisant une boucle Do while à la place du For et en mettant a la place des Next j
j=j+1
Loop

mais ça ne fonctionne pas


Merci d'avance pour votre aide

[ucfoutu]

Bonsoir,

Je m'arrête au début (je ne lis même pas plus loin ...)

Tu as là un bloc (Boucle For...Next)
Il commence à For et se termine à Next... et tout ce qu'il contient doit être complet ...

Code :

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

1
2
3
4
5
For j = 2 To 1000
  If (a = Cells(j, 2).Value) And (b = Cells(j, 4).Value) Then
  If (Cells(j, 6).Value <> "") Then
  If Not (Cells(j, 6).Value = c) Then
Next j

Ouvre donc ton aide en ligne (sur ta machine) et lis-y l'utilisation de If ...Then ... !!!
Et applique !

[Gorfael]

Salut Tatayz et le forum
Les spécifications du VBA n'admettent qu'un next par boucle, de même qu'il n'admet qu'un "End Sub" ou un "End Function"

Ce que je lis de ta macro :
Pour j=2 jusqu'à 1000
si Bj = a et Dj = b alors
si Fj n'est pas vide alors
si Fj <> c passer à j suivant
si Fj n'est pas vide alors
si Gj différent de d, passer à j suivant
si Fj n'est pas vide alors
si Hj différent de e, passer à j suivant
afficher la valeur de Ij
sinon (Bj <> a ou Dj <> b), passer au j suivant

en gros :
Pour j=2 jusqu'à 1000
si Bj=a ET Dj=b ET Fj=c ET Gj=d ET Hj=e alors afficher Ij

Code :

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

1
2
3
4
5
For j = 2 To 1000
    If Cells(j, "B") = a And Cells(j, "D") = b And _
       Cells(j, "F") = c And Cells(j, "G") = d And _
       Cells(j, "H") = e Then MsgBox Cells(j, "I")
Next j

[zandru]

salut tatayz
un conseil de base pour programmer en VBA :
quand tu fait une boucle ou un if, écrit-la en entier dès le départ
et écrit ensuite à l'intérieur, ça permet de ne pas mélanger les boucles
ne pas écrire :

Code :

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

1
2
3
4
if ... then
    for...to...
    End If
Next

mais :

Code :

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

1
2
3
4
5
if ... then
    for...to...
    ...
    Next
End If