Discussion :

[jlppap]

Bonjour,
Je suis sous Off.2003.
J'ai un tableau 'TEST.xls' avec 2 feuilles; sur la 1ère il y a des données, sur la 2ème un tableau à remplir avec certaines cellules de la feuille des données.
Et j'ai un gros pb pour remplir ce fichu tableau; je ne suis pas du tout un expert en VBA, cela irait s'il n'y avait pas les boucles pour rechercher les différentes lignes voulues et les cellules correspondantes.

J'ai joint un petit fichier TEST.xls au cas ou ! quelqu'un viendrait à mon aide... ce serait sympa.

MERCI d'avance...

[diude54]

Ce code fonctionne avec ton exemple
Je te concède que l'on pourrai faire plus simple mais c'est ce qui m'est venu

On pourrai commencer par effacer le tableau de la feuille suivi mais tout dépende de ce que tu souhaites

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
Private Sub CommandButton1_Click()
Dim PlSource As Range
Dim DerLig As Long, i As Long, LigDest As Long
 
With Worksheets("recup")
DerLig = .Range("A65536").End(xlUp).Row
Set PlSource = .Range(.Cells(2, 1), .Cells(DerLig, 1))
For Each c In PlSource
 
If c.Value = "AAA" Then
i = c.Row
Worksheets("suivi").Cells(1, 4).Value = .Cells(i, 3).Value
Worksheets("suivi").Cells(1, 7).Value = .Cells(i, 2).Value
End If
 
If c.Value = "BBB" Or c.Value = "CCC" Then
i = c.Row
LigDest = Worksheets("suivi").Range("A65536").End(xlUp).Row + 1
Worksheets("suivi").Cells(LigDest, 1).Value = c.Value
Worksheets("suivi").Cells(LigDest, 2).Value = .Cells(i, 2).Value
Worksheets("suivi").Cells(LigDest, 3).Value = .Cells(i, 4).Value
For k = 6 To 10
Worksheets("suivi").Cells(LigDest, k - 2) = .Cells(i, k).Value
Next k
End If
 
Next c
End With
 
End Sub