Discussion :

[flavionnais]

Bonjour

je souhaite réaliser une macro:

J’ai deux classeurs 'classeur1' et ‘classeur2’, le premier a plusieurs feuilles et le second a qu'une seule et unique feuille.

J'ai un tableau ("C8:C43"à"S8:S43") sur mon premier classeur qui est découpé en plusieurs feuilles (10feuilles) correspondant à différentes semaines

Sur le second j'ai un tableau mais je ne me servirai que de la colonne I

Je voudrai que ma macro prenne la première valeur (en I2 puisqu'en I1 j'ai les entêtes) dans classeur 2 et qu'elle recherche dans mon tableau sur le classeur 1
-si la valeur est trouvé --> surligner la cellule I2 sinon chercher dans les autres feuilles

-si la valeur n'est pas trouvée passer à I3 et répéter la boucle jusqu’I287

Est-ce possible ?

Merci d'avance

[Fred.dz]

La manière dont tu défini ton tableau est bizarre: tu as un tableau qui va de C8 a S43 ou ton "tableau" est en fait 2 colonnes, une de C8 a C43 et une de S8 a S43 ?

Je vais partir de la 1ère hypothèse. Le code doit être quelque chose dans cet esprit:

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
Dim tableau As Range
Dim i As Integer
Dim maCellule As String
Dim trouve As Boolean
 
Set tableau = Range(Cells(8, 3), Cells(43, 19))
 
For i = 2 To 287
    trouve = False
    Windows("Classeur2").Activate
    maCellule = Cells(i, 9)
    Windows("Classeur1").Activate
    For Each feuille In Worksheets
        If trouve = True Then
            Exit For
        End If
        For Each cell In tableau
            If cell.Text = maCellule Then
                Windows("Classeur2").Activate
                Cells(i, 9).Interior.Color = RGB(255,255, 0)
                trouve = True
                Exit For
            End If
        Next cell
    Next feuille
Next i

[flavionnais]

Merci d'avoir répondu

le tableau est constitué de cette manière C8,D8,E8,F8,G8...S8
C9,D9,E9,F9,G9...S9
C10,D10,E10,F10,G10...S10
....................................
....................................
C43,D43,E43,F43,G43...S43

[Fred.dz]

Ok, c'est bien ce que j'ai fait dans le bout de code précédent.

[flavionnais]

Oui je viens de tester sa marche parfaitement merci encore

Je me permet de vous demander un dernier service

pour savoir comment faire si je veux également surligner la cellule trouvé sur le classeur 1

[Fred.dz]

Essaye de rajouter la ligne:

Code :

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

cell.interior.color=RGB(255,255,0)

Entre ces 2 lignes:

Code :

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

1
2
3
If cell.Text = maCellule Then
 
       Windows("Classeur2").Activate