Discussion :

[totogabi]

Bonjour,

mon problème est le suivant :

dans un classeur excel j'ai deux feuilles que je nommerai A et B.

la feuille A :
se compose de 25 colonnes (soit de A à Y) qui sont sujettes à des saisies hebdomadaires ponctuelles.
Sur les en-têtes des 5 premières colonnes (de A à G) je dois appliquer des filtres dont les valeurs des plages des colonnes E à Y (à l'exception des titres de colonnes) doivent être reportées en C11:W22 de la feuille B.

mon souhait :
actionner un bouton de commande à partir de la feuille A pour successivement effacer le contenu des valeurs (pas les formats) de la plage C11:W22 de la feuille B puis copier le contenu des valeurs filtrées de la feuille A plage E à Y dont le nombre de lignes est variable selon les filtres mais ne pouvant toutefois pas excéder 12 lignes (12 lignes maximum étant prévues à cet effet dans la feuille B dans la plage C11:W22).

Dans une précédente discussion nommée code VBA dans un classeur EXCEL, j'ai joins un fichier excel qui illustre bien le problème.

Merci d'avance pour vos lumières

totogabi

[Daniel.C]

Bonjour,

Si tu cites un fil, donne son adresse, ou alors la date et l'heure du message c'est beaucoup plus facile à retrouver. Quelle est la feuille devant recevoir les données ?
Note que je t'ai fourni la macro suivante pour le classeur "bibliotheque.xlsx" qu'il suffit d'adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopieFiltre()
    Dim Plage As Range
    [formulaire!B6:F17].ClearContents
    With Sheets("prêts")
        If Application.Subtotal(103, .AutoFilter.Range) > 5 Then
            Set Plage = .AutoFilter.Range.Offset(, 2).Resize(, .AutoFilter.Range.Columns.Count _
                - 2).SpecialCells(xlCellTypeVisible)
            Plage.Select
            Plage.Copy [formulaire!C5]
        End If
    End With
End Sub

[totogabi]

Salut Daniel,

je me doutais que tu réagirais à cette discussion.

J'avais en effet posé le problème il y a quelques jours mais je me suis heurté à l'en-tête des colonnes et à la copie des plages de données.
Voici donc attaché à ma réponse le fichier : club de sport.xls qui montre précisément ce que j'attends de ce code VBA.



Merci d'avance


totogabi

[Theze]

Bonjour,

Réponse dans l'autre fil !

Hervé.

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MAJFormulaire()
    Dim Plage As Range
    [Formulaire!C11:W22].ClearContents
    With Sheets("Saisie")
        Set Plage = .AutoFilter.Range.Offset(1, 8)
        Set Plage = Plage.Resize(Plage.Rows.Count - 1, 15)
        If Application.Subtotal(103, Plage) > 0 Then
            Plage.SpecialCells(xlCellTypeVisible).Copy
            [Formulaire!C11].PasteSpecial xlPasteValues
            [Formulaire!D4] = .Cells(Plage.SpecialCells(xlCellTypeVisible)(1, 1).Row, 1)
            [Formulaire!J6] = .Cells(Plage.SpecialCells(xlCellTypeVisible)(1, 1).Row, 3)
        End If
    End With
End Sub

[totogabi]

Enfin la solution à ce problème est résolue...

En fait j'ai juste rectifié le code car il y avait un petit décalage.
Pour tout te dire, je maîtrise beaucoup plus Access mais je commence à me pencher de plus en plus sur excel côté VBA.

Encore merci

cordialement

totogabi

[Daniel.C]

@ x109488 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Plage = .AutoFilter.Range.Offset(1, 8)

Que représente "Offset(1, 8)" ?

Daniel