Microsoft 365 Appliquer un code VBA a une partie du classeur

L

Lolote83

XLDnaute Barbatruc

• 16 Mars 2022

• #2

Bonjour,
Je verrais bien un truc du genre. Seuls les onglets AAAAA, BBBBB et CCCCC seraient traités

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim Plage
    Select Case Sh.Name
        Case "AAAAA", "BBBBB", "CCCCC"
            With Feuil1
                Set Plage = .UsedRange
                Sh.Cells.Clear
                Plage.AutoFilter Field:=6, Criteria1:=Sh.Name
                Plage.Offset(, 5).Resize(, Plage.Columns.Count - 5).SpecialCells(xlCellTypeVisible).Copy Sh.[a1]
                Plage.AutoFilter
            End With
    End Select
End Sub

@+ Lolote83

 

Vote positif 0 Vote négatif

M

morbo

XLDnaute Nouveau

• 17 Mars 2022

• #3

Bonjour Lolote83
C'est parfait !
Merci

 

Vote positif 0 Vote négatif

M

morbo

XLDnaute Nouveau

• 21 Mars 2022

• #4

Bonjour,

Je n'arrive pas à adapter la formule ci-dessus pour copier le contenu des cellules non vides des colonnes (une sur deux) en partant de la colonne (G:G) d'une feuille AAAAA vers une nouvelle feuille en cellule (G7).

Merci pour votre aide.

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 21 Mars 2022

• #5

Bonjour,
Je suis désolé, mais je ne comprends pas la question.
@+ Lolote83

 

Vote positif 0 Vote négatif

M

morbo

XLDnaute Nouveau

• 21 Mars 2022

• #6

J'ai essayé d'illustrer ma demande :
Sur la feuille AAAA, je souhaiterais sélectionner les colonnes D, F, H etc (une colonne sur deux). Les copier et les coller dans la feuille "Feuil1" a partir de la cellule G7 sans coller les cellules non vides de chaque colonne.

En espérant être plus clair

 

Pièces jointes

• TEST22.xlsm

  31.2 KB · Affichages: 2

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 21 Mars 2022

• #7

Re bonjour,
OK, je crois avoir compris.
Par contre, pas le temps ce soir. Peut être demain mais .....
@+ Lolote83

 

Vote positif 0 Vote négatif

M

morbo

XLDnaute Nouveau

• 22 Mars 2022

• #8

Merci bien tout de même.

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 22 Mars 2022

• #9

Bonjour MORBO,
Voici le fichier en retour avec des formules matricielles (à valider par CTRL+MAJ+ENTER) dans l'onglet Feuil2
Cordialement
@+ Lolote83

 

Pièces jointes

• Copie de MORBO - Formule matricielle.xlsm

  31.9 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

M

morbo

XLDnaute Nouveau

• 23 Mars 2022

• #10

Bonjour Lolote 83,

Merci pour ton retour, ça fonctionne très bien. C'est top !
Par contre je ne comprends pas le fait de devoir faire ctrl + maj + entree, en effet cela fonctionne sans que je le fasse.
Bonne journée.

 

Vote positif 0 Vote négatif