Problème boucle à condition

Version imprimable

Bonjour à tous!

Je viens vers vous car je bloque sur un problème de syntaxe (il me semble) et malgré mes recherches je n'arrive pas à résoudre ce problème.

L'idée est de faire un rapprochement entre 2 feuilles excel.

Prenons une feuille A et une feuille B. L'idée est de prendre la première ligne de la feuille A, chercher la ligne dans la feuille B (en comparant colonne à colonne à l'aide d'une boucle) et colorier la ligne en vert si tout correspond. Puis passer à la ligne suivante.

Dans ce schéma je vois 3 boucles :
- la première pour passer d'une ligne à une autre dans la feuille A,
- la deuxième pour passer d'une ligne à une autre dans la feuille B lorsque l'on cherche la ligne qui correspond,
- la dernière pour comparer les colonnes d'une ligne

Les conditions sont naturellement des conditions d'égalité de valeur.

Voici où j'en suis.
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 Dim nbreA As Variant Dim nbreB As Variant nbreA = Sheets("A").Range("A" & Application.Rows.Count).End(xlUp).Row (nombre de lignes dans A) nbreB = Sheets("B").Range("A" & Application.Rows.Count).End(xlUp).Row (nombre de lignes dans B) For i = nbreA To 2 Step -1 For j = nbreB To 2 Step -1 If Sheets("A").Cells(i, 1) = Sheets("B").Cells(j, 1) Or (Sheets("A").Cells(i, 1) = "29*" And Sheets("B").Cells(j, 2) = "Nom") Then For k = 2 To 4 If Sheets("A").Cells(i, k) <> Sheets("B").Cells(j, k) Then Exit For End If Next k If k = 4 Then Sheets("A").Rows(i).Interior.Color = RGB(0, 255, 0) And Sheets("B").Rows(j).Interior.Color = RGB(0, 255, 0) Next i Else Next j End If If j = 2 Then Sheets("A").Rows(i).Interior.Color = RGB(255, 0, 0) Next i End If End if
Normalement mes conditions sont bien formulées.

En revanche à chaque fois que j'essaie d'instaurer un "Next x" il me met "Erreur de compilation : Next sans For"...
C'est probablement une erreur de débutant qui concerne la syntaxe et la base même de l'utilisation des boucles mais je bloque tout de même dessus =/.

Si vous pouviez m'éclaircir sur ce point, vous me seriez d'une grande aide!

Merci d'avance!

13/10/2014, 18h49
Daniel.C

Bonjour,

Le nombre de "For" et de "Next" doit être le même. Tu ne peux pas avoir un seul "For i..." et deux "Next i".
13/10/2014, 19h39
SfJ5Rpw8

Citation:

Envoyé par Daniel.C

Bonjour,

Le nombre de "For" et de "Next" doit être le même. Tu ne peux pas avoir un seul "For i..." et deux "Next i".

Bonsoir,

j'ajouterais tu dois aussi avoir le même nombre de For que de Next entre un If est un endif (ou else) .. et donc tu ne peu pas trouver un Next tout seul entre if..endif..

Re!

Alors je n'ai plus d'erreur mais mon programme ne fonctionne pas... Il me colorie tout en rouge. Après avoir vu pas à pas ce qu'il faisait et bien je remarque qu'il bloque à la comparaison des cellules.

Tout d'abord il ne détecte pas la deuxième condition dans le premier if. Ce sont des cellules qui contiennent du texte et le texte est normalement identique
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 For i = nbreA To 2 Step -1 For j = nbreB To 2 Step -1 If Sheets("A").Cells(i, 1).Value = Sheets("B").Cells(j, 1).Value Or (Sheets("A").Range("B" & i) Like "29*" And UCase(Sheets("B").Range("B" & j).Value) Like UCase(Adm) & "*") Then For k = 2 To 4 If UCase(Sheets("A").Cells(i, k)) <> UCase(Sheets("B").Cells(j, k)) Then Exit For End If Next k If k = 4 Then Sheets("A").Rows(i).Interior.Color = RGB(0, 255, 0) And Sheets("B").Rows(j).Interior.Color = RGB(0, 255, 0) End If End If Next j If j = 2 Then Sheets("A").Rows(i).Interior.Color = RGB(255, 0, 0) End If Next i
Je n'arrive pas à voir où est le problème! Ca doit encore être une erreur de débutant mais je passe beaucoup trop de temps à chercher sans trouver la solution. J'ai d'abord essayé de tout mettre en majuscule pour ne pas avoir de problème à ce niveau mais ça ne fonctionne toujours pas =/

J'ai corrigé la première partie (erreur de colonne) mais la deuxième partie dans la boucle avec le K le problème y est toujours...

14/10/2014, 17h32
Daniel.C

Si tu disais tout ?
Est-ce que le nombre de colonnes est fixe ?
Est-ce que les lignes sont triées ? Si oui, sur quelles colonnes ?
Est-ce qu'il y a beaucoup de lignes ?
Qu'est-ce que représente ce "29" que tu testes ?
15/10/2014, 11h20
Aliass01

Alors,
Il s'agit d'un rapprochement entre 2 feuilles dans lesquelles on retrouve des opérations d'achat et de vente d'actions ou autre instrument financier. Il y a donc 4 colonnes à vérifier : N° de compte, nom de l'action, Quantité, et type de compte

Le nombre de colonne est fixe.

Les lignes sont triées par quantité.

Il n'y a pas beaucoup de lignes (max 50).

Les colonnes sont présentées comme cela :

N° Compte - Type de compte - Libellé de la valeur - Quantité

Pour éviter les problèmes de similarité de caractère j'ai fait une étape supplémentaire où je remplace le nom de la valeur par son code.

Mais ça me fait le même problème...

Par rapport au "29*", qui fonctionne bien d'ailleurs :
Dans l'une des deux feuilles, les numéros de compte diffèrent selon les types. Il y a 2 types de compte. Donc lorsque le compte est "normal" les numéros de compte sont similaires, lorsque le compte est "spécial" dans la feuille en question le numéro de compte est différent et commence par 29. Du coup pour faire le rapprochement entre les 2 feuilles, je regarde d'abord si :
Cas 1 : le N° de compte est similaire dans les deux feuilles
Cas 2 : le N° de compte de la feuille 1 commence par 29 et le type de compte dans la feuille 2 correspond à spécial

Si je suis dans l'un des deux cas, je regarde la suite de la ligne. Si j'arrive au bout de la vérification k=4, je colorie la ligne en vert.

J'espère que c'est clair. Votre aide me serait très précieuse!

Bonjour,

Je n'ai pas bien compris cette histoire de 29. Sinon, essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ComparerFeuilles()
    Dim C As Range, PlageA As Range, PlageB As Range, X As Range
    Dim I As Integer, Ctr As Integer
    With Sheets("FeuilA")
        Set PlageA = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("FeuilB")
        Set PlageB = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For Each C In PlageA
        For Each X In PlageB
            Ctr = 0
            For I = 0 To 3
                If X.Offset(, I) = C.Offset(, I) Then Ctr = Ctr + 1
            Next I
            If Ctr = 4 Then
                C.Resize(, 4).Interior.ColorIndex = 4
                X.Resize(, 4).Interior.ColorIndex = 4
            End If
        Next X
    Next C
End Sub

15/10/2014, 12h39
Aliass01

Après une modification (Ctr=3), ca fonctionne à merveille!

Merci!

Au delà du fait que ta formulation est plus épurée et élégante, saurais-tu pour quelle raison ça ne fonctionnait pas?

J'avais oublié le I=0... Ca ne fonctionne toujours pas avec Ctr=4...
Le problème vient bien de la colonne avec le code de la valeur
15/10/2014, 12h58
Aliass01

C'est bon! Un petit UCase a fait l'affaire! Merci bien!