Bonjour,
Je souhaite créer une macro vba qui sélectionnera des colonnes d'une feuil1 pour les copier dans une feuil2 selon le titre qu'ils ont dans la feuil1. (J'appel titre une chaine de caractère situé dans une colonne (pas nécessairement dans la cellule la plus haute, mais une cellule au hasard).
Admettons que j'ai une feuil1 comportant 10 colonnes avec 10 titres de types (titre 1 _ titre 2 .....jusqu'à titre 10" et que dans ma colonne 2 je souhaite obtenir titre 5 et titre 7.
Voilà ce que j'ai écris jusqu'à présent mais je ne pense pas avoir la bonne méthode, merci à ceux qui voudront bien m'aider.


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
Sub rassemblement() 
Dim derL As Long 
derL = Sheets("feuil1").[B65536].End(xlUp).Row 
Dim derC As Long 
derColonne = Sheets("feuil1").[B65536].End(xlUp).Column 
 
For j = derC To 1 Step -1 
For i = derL To 1 Step -1 
If Feuil1.Cells(i, j) = "titre5" Then j = "Bontitre" 
Next 
Cells(i, 1) = Feuil1.Cells(i, Bontitre) 
Next 
 
For j = derC To 1 Step -1 
For i = derL To 1 Step -1 
If Feuil1.Cells(i, j) = "titre5" Then j = "Bontitre" 
Next 
Cells(i, 2) = Feuil1.Cells(i, Bontitre) 
Next 
 
End Sub

Cordialement
RomainG