comparaison colonnes de 2 feuilles excel

**lolove94** · 02/03/2008, 18h29

Bonjour à tous,

Je commence par vous dire que je débute seulement sous vba et forcément les premiers problèmes arrivent....donc par avance merci de me venir en aide

voici ma question:

J'ai dans un classeur excel, 2 feuilles ("PA" et "auto")
je souhaiterais lire dans la feuille "PA" la colonne C (des cellules C7 à C20) puis la comparer à la colonne B (cellule B7 à B20) de la feuille "auto"

si le contenu de la cellule de la feuille "PA", par exemple C7 est égale à la cellule B7 de la feuille "auto", alors la cellule G8, par exemple de la feuille "auto" devient vert....sinon la cellule devient rouge...de la même façon pour la comparaison des autres cellules (C8>C20) de la feuille 'PA" aux cellules (B8>B20) de la feuille ("auto")...

j'espere avoir été suffisament clair....
merci par avance de votre aide

**fring** · 02/03/2008, 19h05

Envoyé par ouskel'n'or

La position de ton End with me dérange

Si le test est bon tu n'en as pas

Exact, bien vu, j'avais fait ça à la sauvette sans tester, merci pour la correction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim i%
For i = 7 To 20
   With Sheets("auto").Cells(i, 7).Interior
      If Sheets("PA").Cells(i, 3) = Sheets("auto").Cells(i, 2) Then
         .ColorIndex = 10
      Else
         .ColorIndex = 3
      End If
   End With
Next
End Sub

**lolove94** · 03/03/2008, 23h24

merci beaucoup pour ton aide...je n'ai eu le temps de testé ta méthode que cet AM....

après éxécution voici le résultat...

---------------------------
Microsoft Visual Basic
---------------------------
L'indice n'appartient pas à la sélection.
---------------------------
OK Aide
---------------------------

que faire?

par avance merci....

**lolove94** · 03/03/2008, 23h30

voici la copie d'écran correspondante

**Abed_H** · 03/03/2008, 23h43

Bonsoir

L'indice n'appartient pas à la sélection.

Vous avez fait référence à un membre de collection inexistant.
voir les noms de tes 2 feuilles si c'est bien PA et auto
Abed_H

**ouskel'n'or** · 04/03/2008, 00h41

Tu as adapté le nom des feuilles qu'a mis fring ?

**fring** · 04/03/2008, 10h47

J'ai dans un classeur excel, 2 feuilles ("PA" et "auto")

**lolove94** · 04/03/2008, 11h53

Bonjour à tous,

Merci beaucoup de me venir en aide...

pour répondre à la 1ère question de Ouskel'n'or...oui j'ai adapté le prog de fring à mon cas....en fait PA=feuille plan d'action et auto= grille auto...

J'ai de nouveaux éléments à vous soumettre pour que vous essayer de comprendre mon soucis...En espérant être plus clair...

En fait sur une feuille "PA" j'ai un tableau à 1 seule entrée avec 3 colonnes (A, B et C)

sur une autre feuille "auto" j'ai un tableau à 2 entrées

en fait je vais reformuler mon problème...

Si la colonne A (cellules A1 à A15) de la feuille "PA" = la colonne A (cellules A1 à A15) de la feuille "auto"

Et si la colonne B (cellules B1 à B15) de la feuille "PA" = la ligne 2 (cellules A2 à O2) de la feuille "auto"

alors à la croisée de cette ligne-colonne du tableau de la feuille "auto" la cellule prend la couleur de la cellule correspondante dans la colonne C, feuille "auto"

En me relisant je ne sais pas si qq'n m'a compris...

Merci par avance....

je rame complètement

en fait c'est la colonne C de la feuille "PA"...

désolé

**lolove94** · 05/03/2008, 15h02

bonjour à tous,

J'ai bossé sur mon problème une bonne partie de l'AM d'hier et j'ai realisé ce prog....je sais qu'il y a des erreurs notamment sur la fin (Next et exit for...) mais là je sèche complètement....

Si une âme charitable pouvait me venir en aide...

Merci par avance

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
 
 
 
Sub test()
 
Dim z
Dim i
Dim j
 
    For z = 8 To 50 Step 1
 
        For j = 7 To 23 Step 1
 
            If Sheets("plan d'action").Cells(z, 2) = Sheets("Grille synthèse auto").Cells(j, 2) Then
 
                For i = 3 To 26 Step 1
 
                    If Sheets("plan d'action").Cells(z, 6) = Sheets("Grille synthèse auto").Cells(6, i) Then
 
                        If Sheets("plan d'action").Cells(z, 7) <= 36 And Sheets("plan d'action").Cells(z, 7) > 16 Then
                        Sheets("Grille synthèse auto").Cells(j, i).Select
                        Selection.Interior.ColorIndex = 7
 
                        Else
 
                            If Sheets("plan d'action").Cells(z, 7) <= 64 And Sheets("plan d'action").Cells(z, 7) > 36 Then
                            Sheets("Grille synthèse auto").Cells(j, i).Select
                            Selection.Interior.ColorIndex = 3
                            End If
 
                        End If
 
                Next z
 
                    Else
                    End If
 
        Next i
 
            Else
            End If
 
    Next j
 
End Sub

ERREUR de COmpilation
Next sans For

**ML0808** · 05/03/2008, 16h52

Tes For étant dans cet ordre :

Code :

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

1
2
3
4
5
6
7
8
9
    For z = 8 To 50 Step 1
 
        For j = 7 To 23 Step 1
 
            If Sheets("plan d'action").Cells(z, 2) = Sheets("Grille synthèse auto").Cells(j, 2) Then
 
                For i = 3 To 26 Step 1
 
If Sheets("plan d'action").Cells(z, 6) = Sheets("Grille synthèse auto").Cells(6, i) Then

Tu dois avoir à la fin, dans cet ordre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
End If
                Next i
 
                    End If
 
        Next j
 
            ' pas de Else
            ' pas de End If
 
    Next z

Après, j'ai pas regardé en détail l'intérieur du code, mais je pense que tes bug des Next sans For viennent de là

**fring** · 05/03/2008, 17h30

Bonjour,

+/- même réponse que ML0808 avec quelques nettoyages complémentaires

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
Sub test()
Dim i%, j%, z%  '<-- % = As Integer
 
For z = 8 To 50 'pas besoin de préciser Step 1, c'est la valeur par défaut
    For j = 7 To 23
        If Sheets("plan d'action").Cells(z, 2) = Sheets("Grille synthèse auto").Cells(j, 2) Then
            For i = 3 To 26
                If Sheets("plan d'action").Cells(z, 6) = Sheets("Grille synthèse auto").Cells(6, i) Then
                    If Sheets("plan d'action").Cells(z, 7) <= 36 And Sheets("plan d'action").Cells(z, 7) > 16 Then
                    Sheets("Grille synthèse auto").Cells(j, i).Select
                    Selection.Interior.ColorIndex = 7
                    Else
                        If Sheets("plan d'action").Cells(z, 7) <= 64 And Sheets("plan d'action").Cells(z, 7) > 36 Then
                        Sheets("Grille synthèse auto").Cells(j, i).Select
                        Selection.Interior.ColorIndex = 3
                        End If
                    End If
            Next 'pas besoin de spécifier la variable
                'Else <-- ce Else est inutile
                End If
    Next 'pas besoin de spécifier la variable
        'Else <-- Else inutile
        End If
Next 'pas besoin de spécifier la variable
 
End Sub

**lolove94** · 06/03/2008, 16h54

Bonjour à tous...

Merci pour tenter de m'aider par vos réponses...

J'ai apporté les dernières modifs et toujours le même problème

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
 
Sub test()
 
Dim z%
Dim i%
Dim j%
 
    For z = 8 To 50
 
        For j = 7 To 23
 
            If Sheets("plan d'action").Cells(z, 2) = Sheets("Grille synthèse auto").Cells(j, 2) Then
 
                For i = 3 To 26
 
                    If Sheets("plan d'action").Cells(z, 6) = Sheets("Grille synthèse auto").Cells(6, i) Then
 
                        If Sheets("plan d'action").Cells(z, 7) <= 36 And Sheets("plan d'action").Cells(z, 7) > 16 Then
                        Sheets("Grille synthèse auto").Cells(j, i).Select
                        Selection.Interior.ColorIndex = 7
 
                        Else
 
                            If Sheets("plan d'action").Cells(z, 7) <= 64 And Sheets("plan d'action").Cells(z, 7) > 36 Then
                            Sheets("Grille synthèse auto").Cells(j, i).Select
                            Selection.Interior.ColorIndex = 3
                            End If
 
                        End If
                Next
 
                    End If
        Next
 
            End If
 
    Next
 
End Sub

Toujours la même erreur 'NEXT' sans FOR....

Je ne vois toujours pas l'erreur....

Je suis obstiné, je ne lacherais pas excel

Merci de m'aider de nouveau

**fring** · 06/03/2008, 17h08

Le problème ne vient pas de tes boucles For...Next mais des If et End If mal placés. (j'aurais du le voir dans ma réponse précédente, désolé)

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
Sub test()
 
Dim z%
Dim i%
Dim j%
 
    For z = 8 To 50
        For j = 7 To 23
            If Sheets("plan d'action").Cells(z, 2) = Sheets("Grille synthèse auto").Cells(j, 2) Then
                For i = 3 To 26
                    If Sheets("plan d'action").Cells(z, 6) = Sheets("Grille synthèse auto").Cells(6, i) Then
                        If Sheets("plan d'action").Cells(z, 7) <= 36 And Sheets("plan d'action").Cells(z, 7) > 16 Then
                        Sheets("Grille synthèse auto").Cells(j, i).Select
                        Selection.Interior.ColorIndex = 7
                        Else
                            If Sheets("plan d'action").Cells(z, 7) <= 64 And Sheets("plan d'action").Cells(z, 7) > 36 Then
                            Sheets("Grille synthèse auto").Cells(j, i).Select
                            Selection.Interior.ColorIndex = 3
                            End If
                        End If
                    End If
                Next
            End If
        Next
    Next
 
End Sub

**lolove94** · 06/03/2008, 17h25

Merci à toi Fring....

Le problème des NEXT est résolu....Merci beaucoup....

Maintenant j'ai le droit à un autre affichage....c'est bien ça change un peu...

Erreur d'exuction '9'
L'indice n'appartient pas à la selection

cool cool zen zen

ah oui j'oubliais...

En espérant que ça n'a pas trop d'importance....Il y a une macro déjà sur la feuille 'plan d'action' et les colonnes sur lesquelles je travaille de la 2ème macro découle de la première macro qui elle fonctionne très bien....

Par contre celle si (la 2ème macro) sur la feuille 'grille auto' pose vraiment problème

**fring** · 06/03/2008, 17h59

Envoyé par lolove94

Erreur d'exuction '9'
L'indice n'appartient pas à la selection

Probablement une erreur dans les noms de tes feuilles, vérifie si ils sont bien correctement orthographiés

**Petit Ecolier** · 07/03/2008, 00h13

Slt,

Je ne suis pas tres fort en VBA, mais qqs trucs quand tu débutes :

Pour mieux cerner le problème d'indice lance le programme pas à pas en appuyant sur la touche F8, tu verras vraiment à quelle ligne ca plante.

N'oublie pas de faire afficher la fenêtre de variables locales (Affichage->Fenetre de variales locale). Dans cette fenêtre tu verras si tes variables prennent bien les valeurs que tu souhaites.

Peut être que tu avais découvert ca... je ne sais pas...

Bon courage !

**lolove94** · 07/03/2008, 16h06

Merci p'tit écolier....

J'éxécute le pas à pas, mais le prog s'arrête au 1er 'if'...

quelqu'un a une idée pour résoudre mon problème?

Merci d'avance

tcho

**fring** · 07/03/2008, 16h22

Sans rien changer à ton code, refais un copier/coller complet de ton code ici stp

**lolove94** · 07/03/2008, 16h41

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
 
 
Sub test()
 
Dim pp%
Dim qq%
Dim rr%
 
    For rr = 8 To 50
 
        For qq = 7 To 23
 
            If Sheets("plan d'action").Cells(rr, 2) = Sheets("grille auto").Cells(qq, 2) Then
 
                For pp = 3 To 26
 
                    If Sheets("plan d'action").Cells(rr, 6) = Sheets("grille auto").Cells(6, pp) Then
 
                        If Sheets("plan d'action").Cells(rr, 7) <= 36 And Sheets("plan d'action").Cells(rr, 7) > 16 Then
                        Sheets("grille auto").Cells(qq, pp).Select
                        Selection.Interior.ColorIndex = 7
 
                        Else
 
                            If Sheets("plan d'action").Cells(rr, 7) <= 64 And Sheets("plan d'action").Cells(rr, 7) > 36 Then
                            Sheets("grille auto").Cells(qq, pp).Select
                            Selection.Interior.ColorIndex = 3
                            End If
 
                        End If
 
                    End If
 
                Next
 
             End If
        Next
 
    Next
 
End Sub