Discussion :

[salemhacen]

Bonjour,

Je suis débutant avec VBA, j'ai besoin de votre aide,
J'ai un fichier Excel qui comporte 9 colonnes et plusieurs lignes, dans ce fichier on trouve des personnes avec leurs historiques de formations.
Ce que je souhaite faire c'est de créer une macro qui permet:
- en indiquant le code d'une formation (colonne D) me copie toutes les données dans un autre onglet que je nommerais au nom de la formation recherchée.
je le fais déjà manuellement puisque dans le filtre de la colonne D je choisi ma formation ensuite je sélectionne tout et je le recopie dans un autre onglet donc mon souhait et d'automatiser cette fonction sachant que j'en ai pour 20 formations je souhaite les récupérer toutes dans d'autres onglets.

Par avance merci.

[Invité]

Bonjour,
regarde ça:http://www.developpez.net/forums/d13...s/#post7481714

[salemhacen]

Merci "rdurupt" pour la réponse, depuis tout à l'heure j'essaye d'adapter ce code sur ma base mais en vain, quand je l’exécute il passe mais au résultat il ne me copie rien du tout la page reste vide...

[Invité]

Poste ton code!

[Marc-L]

Bonjour,

à la place d'un filtre, utiliser un filtre avancé copiant directement les données …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[salemhacen]

Voici le code,

il ne marche pas il m'indique erreur d’exécution '9', il me crée un onglet et un nouveau classeur c'est pas bon aussi.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub CommandButton1_Click()
 
 If Me.TextBox1.Text = "" Then
    MsgBox "Veuillez indiquer votre formation, merci."
    Me.TextBox1.SetFocus
Exit Sub
End If
 
 'création d'une feuille pour y copier les données
Dim sh As Worksheet
Set sh = Worksheets.Add
sh.Name = TextBox1
 
' Rechercher dans la liste, Rapport1 voulu
 Dim LastLign As Long ' Dernière ligne de la liste dans la feuille Rapport1
 Dim Pcellule As Range 'Première cellule trouver
 Dim Num As String 'Code d'identification
 Dim WbActif As Workbook
 Dim WbFiltre As Workbook
 Set WbActif = ActiveWorkbook
 Set WbFiltre = Workbooks.Add
 WbFiltre.Sheets(Rapport1).Range("A1") = sh.Range("A1")
 
 LastLign = WbActif.Worksheets("Rapport1").UsedRange.Rows.count + 1
 FiltreActif sh.UsedRange, WbFiltre.Sheets(Rapport1).UsedRange, WbActif.Worksheets("Rapport1").Cells(LastLign, 1), False
    WbFiltre.Close False
 WbActif.Worksheets("Rapport1").Cells(LastLign, 1).EntireRow.Delete
 
NewLign = 2
Num = TextBox1
 
With Worksheets("Rapport1").Range("B1:B" & LastLign)
    Set c = .Find(Num)
    Set Pcellule = c 'enregistre le premier élémént trouver
  If Not c Is Nothing Then
   Do
       c.EntireRow.copy Destination:=Worksheets(TextBox1).Range("B" & NewLign) 'copie la ligne dans l'autre feuille
       Set c = .FindNext(c) ' recherche si il y a un autre code dans la liste
       NewLign = NewLign + 1
   Loop While Not c Is Nothing And c <> Pcellule
End If
End With
 
 
 
End Sub
Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean
FiltreActif = False
On Error Resume Next
 RangeSource.AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=CriterRange _
        , CopyToRange:=CopyRange, Unique:=Unique
        DoEvents
        If Err = 0 Then FiltreActif = True
        MsgBox Err.Description
        On Error GoTo 0
End Function

ce que je souhaite faire: dans l'onglet rapport 1 j'ai beaucoup de formations pour beaucoup de personnes, une seule personne peut avoir plusieurs formations, donc manuellement sur la colonne 'D' (code formation) je sélectionne la formation souhaite et j'affiche l'effectif avec nom prénom matricule etc...
Je veux automatiser tout ça avec VBA, je lui donne le code il me copie les données dans un autre onglet.

Merci