Analyse de tableau

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

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:

---

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

---

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

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

Oui je viens de tester sa marche parfaitement merci encore :ccool:

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

Essaye de rajouter la ligne:

Code:

---

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

---

Entre ces 2 lignes:

Code:

---

1 2 3

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

---

le probléme est que les valeurs ne sont surlignées que sur la première feuille de mon classeur1 il faudrait que les cellules soient surlignées sur les 9 autres feuilles également

apprenez à vous servir de l'explorateur d'objets les amis... Bouton F2
Puis aller dans l'objet cellule et regarder ses propriétés, vous trouverez votre bonheur!

Etant novice sur VBA je ne sais pas du tout utiliser l'explorateur d'objet.

Il y a surement un debut à tout :roll: j'ai fais l'effort mais sans succés je n'ai pas trouvé ma réponse.

Et l'éditeur de macros tu connais?

Code:

---

1 2 3 4 5 6 7 8

Range("Lerange").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With

---

Il te suffira de tester l'une des valeurs suivantes... SI cellule surlignée alors surligner l'autre ?

Ok, par contre le temps d'execution va augmenter en fleche.

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

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 For Each cell In tableau If cell.Text = maCellule Then cell.interior.color=RGB(255,255,0) If trouve=false then Windows("Classeur2").Activate Cells(i, 9).Interior.Color = RGB(255,255, 0) trouve = True end if Exit For End If Next cell Next feuille Next i

---

N'y aurait-il pas un moyen pour que la macro s'execute directement sur toutes les feuilles du classeur1 ?

Bah normalement ça le fait déjà (grâce au for each feuille in worksheets).

Je viens de tester et justement il ne surligne que sur la 1ère feuille ...
De plus je le remarque égalment dans mon classeur2 car il n'a surligné que les valeurs de la 1ere feuille du classeur1

bonjour Fred.dz,

Ton petit bout de programme m’intéresse à titre d'apprentissage et j’essaie donc de le mettre en application.
Pour l'instant je n'arrive pas à le faire tourner. Peux tu me dire :
- ou tu loges le code : le classeur, le module ?
- que signifie windows ("classeur2") ? (j'aurai pensé trouvé workbooks à la place de windows.)

merci.

Perso, je met toujours mon code dans des modules, j'aime pas trop utiliser ThisWorkbook, mais je pense que les 2 doivent marcher.

Pour la différnece entre windows et workbooks, je pense que windows contiens toutes les fenêtres ouvertes alors que workbooks ne contient que les classeurs Excel ouvert. Dans le cas présent c'est surement equivalent.

bonjour,

dans mon classeur1 la valeur qui est recherché se surligne ainsi que dans la colonne i du classeur2

est ce qu' une fois que les valeurs ont été surligné, il est possible de les exclure de façon à ce que la macro ne surligne pas deux fois la même valeur dans le classeur1 alors qu'elle n'apparaît qu'une seule fois dans la colonne i du classeur2?