Bonjour,

Je rencontre un probleme insoluble pour moi , neo pratiquant de VBA .
je desire , apres avoir coller un tableau dans une feuille , rechercher les lignes colorées en jaune et les coller dans une autre feuille appelée "synthese" les unes sous les autres ..

Voici mon code :

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
Dim Cellule1 As Range, Cellule2 As Range 
 Dim lig As Integer, col As Integer 
 Dim flag As Boolean 
 lig = 3: col = 1 
 With Sheets("Feuil1") 
 For Each Cellule1 In Intersect(.Range("A:A"), .UsedRange) 
 For Each Cellule2 In Intersect(.Rows(Cellule1.Row), .UsedRange) 
 If Cellule2.Interior.Color = RGB(255, 255, 0) Then 
 Sheets("Synthese").Cells(lig, col) = Cellule2 
 col = col + 1 
 flag = True 
 End If 
 Next Cellule2 
 If flag = True Then lig = lig + 1: flag = False 
 Next Cellule1 
 End With
Il marche assez bien pour rechercher et coller la 1ere ligne jaune trouvée mais ne fonctionne plus des qu'il en trouve une autre . Ou il la colle a la suite sur la meme ligne , ou n'importe ou ... Et surtout , des que je refais la manoeuvre avec un nouveau tableau le lendemain , la nouvelle ligne jaune trouvée ecrase la precedente .

Je m'arrache les cheveux ! ( et Dieu sait qu'il m'en reste deja peu ...)

Quelqu'un peut-il m'aider ?

Merci par avance