Discussion :

[alexine35]

Bonjour

Novice en VBA j'ai besoin de votre aide pour construire une macro, j'avoue que je rame énormément
Je m'explique

j'obtiens les données dans les colonnes B et C à partir d'une autre fichier Excel.

pour le résultat de la colonne B je peux avoir plusieurs données en colonne C.

Je souhaiterai à partir d'une recherche V que les résultat se mettent à la suite ( en colonne ) à partir de la colonne G

Attention les résultats des colonnes B et C ne sont jamais les mêmes.

Merci pour votre aide

macro.xlsx

[BENNASR]

Bonsoir
Merci de te conformer aux règles de forum et éviter les pièces jointes dès le premier poste

https://www.developpez.net/forums/d8...s-discussions/

voila un code bricolé par un débutant

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
Sub transposer()
 
Application.ScreenUpdating = False
'netoyer à partir de la colonne G
 Range("G1:WX65000").Select
    Selection.ClearContents
 'Recherche liste des article sans doublons dans la colonne B
Dim cel As Range
Dim unique As New Collection
Dim i As Integer
On Error Resume Next
For Each cel In Range("B2:B" & [B65000].End(xlUp).Row)
If cel.Value <> "" Then
    unique.Add cel.Value, CStr(cel.Value)
    End If
Next cel
On Error GoTo 0
'Remplir les titres des colonnes
j = 7
For i = 1 To unique.Count
Cells(1, j) = unique(i)
j = j + 1
Next i
 
'Recherche données pour chaque colonne
Dim plage As Range
Set plage = Range("B2:B" & [B65000].End(xlUp).Row)
G = 7
L = 2
 
For G = 7 To G + unique.Count
For Each cel In plage
If cel.Value <> "" And cel.Value = Cells(1, G) Then
   Cells(L, G) = Cells(cel.Row, 3)
   L = L + 1
End If
Next cel
Next G
Application.ScreenUpdating = True
End Sub

[alexine35]

Bonjour


Merci c'est exactement ce qu'il me fallait..