XL 2021 Traitement automatique de cellules vides dans un tableau

[MATLEA]

voir fichier

 

[Gégé-45550]

voir fichier

Bonjour à vous aussi MATLEA, comme le stipule la charte du site.
Utilisez l'enregistreur de macros.
Cdlt

 

[sylvanu]

Tout d'abord Bonjour Matlea, bonjour Gégé,
Un essai en PJ avec simplement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[[#Headers],[Colonne1]]")) Is Nothing Then
        [Tableau15] = [Tableau1].Value
        [Tableau15].Resize([Tableau15].ListObject.ListColumns.Count).Sort key1:=[Tableau15].Item(1, 1), order1:=xlAscending, Header:=xlNo
    End If
End Sub

 

[MATLEA]

Tout d'abord Bonjour Matlea, bonjour Gégé,
Un essai en PJ avec simplement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[[#Headers],[Colonne1]]")) Is Nothing Then
        [Tableau15] = [Tableau1].Value
        [Tableau15].Resize([Tableau15].ListObject.ListColumns.Count).Sort key1:=[Tableau15].Item(1, 1), order1:=xlAscending, Header:=xlNo
    End If
End Sub

Merci c'est exactement ce que je recherche. Mais comment faire pour transférer la procédure dans mon fichier de travail. Il n y a pas de macro visible dans le fichier que vous m'avez envoyé.
Faut il créer une macro avec le protocole qui est écrit ci-dessus ou bien faut il le coller ailleurs?

 

[sylvanu]

Toujours pas de bonjour.
Vous le faites exprès.
Regardez dans la feuille, c'est une macro événementielle.

 

[MATLEA]

Merci c'est exactement ce que je recherche. Mais comment faire pour transférer la procédure dans mon fichier de travail. Il n y a pas de macro visible dans le fichier que vous m'avez envoyé.
Faut il créer une macro avec le protocole qui est écrit ci-dessus ou bien faut il le coller ailleurs?

Toujours pas de bonjour.
Vous le faites exprès.
Regardez dans la feuille, c'est une macro événementielle.

 

[MATLEA]

Pardon, bonsoir et joyeux Noël. Je ne suis pas très familier avec tout ceci et ne sais pas comment traiter une macro événementielle; Où se situe-t-elle dans la feuille et comment la transférer dans mon fichier?
D'avance merci et encore toutes mes excuses pour mon impolitesse

 

[MATLEA]

Pardon, bonsoir et joyeux Noël. Je ne suis pas très familier avec tout ceci et ne sais pas comment traiter une macro événementielle; Où se situe-t-elle dans la feuille et comment la transférer dans mon fichier?
D'avance merci et encore toutes mes excuses pour mon impolitesse

Rebonsoir
Encore une question.
Sera t il possible de traiter de la même façon sur la même feuille d autres tableaux semblables au tableau 1 (tableaux 2, 3, 4 etc)?

 

[sylvanu]

Bonsoir,
1- Vous ouvrez l'éditeur VBA, vous allez dans Feuil1, vous copiez la macro puis dans votre fichier vous faites un Coller dans la feuille concernée.

2- Il vous suffit de changer les indices de tableaux. Dans :
[Tableau15] = [Tableau1].Value
Tableau15 est le tableau de destination.
Tableau1 est le tableau source.

Donc par ex si vous voulez copier le Tableau 1 dans le Tableau 2 et faire le tri alors cela ferait :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[[#Headers],[Colonne1]]")) Is Nothing Then
        [Tableau2] = [Tableau1].Value
        [Tableau2].Resize([Tableau2].ListObject.ListColumns.Count).Sort key1:=[Tableau2].Item(1, 1), order1:=xlAscending, Header:=xlNo
    End If
End Sub

NB: Une macro évènementielle doit obligatoirement se trouver dans la feuille et avec le même nom.
Si cette macro concerne toutes les feuilles alors elle doit se trouver dans ThisWorkBook.

 

[MATLEA]

Merci je regarde ça demain.
Bonne soirée

 

[MATLEA]

Merci je regarde ça demain.
Bonne soirée

Bonsoir,
1- Vous ouvrez l'éditeur VBA, vous allez dans Feuil1, vous copiez la macro puis dans votre fichier vous faites un Coller dans la feuille concernée.
Regarde la pièce jointe 1209876

2- Il vous suffit de changer les indices de tableaux. Dans :
[Tableau15] = [Tableau1].Value
Tableau15 est le tableau de destination.
Tableau1 est le tableau source.

Donc par ex si vous voulez copier le Tableau 1 dans le Tableau 2 et faire le tri alors cela ferait :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[[#Headers],[Colonne1]]")) Is Nothing Then
        [Tableau2] = [Tableau1].Value
        [Tableau2].Resize([Tableau2].ListObject.ListColumns.Count).Sort key1:=[Tableau2].Item(1, 1), order1:=xlAscending, Header:=xlNo
    End If
End Sub

NB: Une macro évènementielle doit obligatoirement se trouver dans la feuille et avec le même nom.
Si cette macro concerne toutes les feuilles alors elle doit se trouver dans ThisWorkBook.

Bonjour,
C est parfait. Merci beaucoup et bonne journée.

 

[AtTheOne]

bonjour à toutes & à tous, bonjour @sylvanu, @MATLEA
Ou puisque tu disposes d'Excel 2021, en supposant que tes données initiales soient en colonne B, sans macro avec la formule :

=LET(Lst;UNIQUE(B:B);TRIER(FILTRE(Lst;Lst<>"")))

Tu obtiens ta liste triée directement sans les cellules vides
voir feuil2 du fichier joint
À bientôt

 

[MATLEA]

Bonjour,
C est parfait. Merci beaucoup et bonne journée.

bonjour à toutes & à tous, bonjour @sylvanu, @MATLEA
Ou puisque tu disposes d'Excel 2021, en supposant que tes données initiales soient en colonne B, sans macro avec la formule :

=LET(Lst;UNIQUE(B:B);TRIER(FILTRE(Lst;Lst<>"")))

Tu obtiens ta liste triée directement sans les cellules vides
voir feuil2 du fichier joint
À bientôt

Bonjour et merci
Mais comment faut-il faire?

 

[AtTheOne]

re

Mais comment faut-il faire?

Comme sur ce gif :

Une fois la formule saisie, le résultat se met à jour à chaque changement dans la colonne B
Si tu veux accéder à l'ensemble du résultat, je te conseille de nommer la cellule qui contient la formule (ici E3 en la nommant par exemple Résultat) tu peux faire référence à Résultat# qui reprend la plage dynamique couverte par les résultats de la formule.
À bientôt

 

[AtTheOne]

Re
La démo pour nommer la cellule et faire référence à la plage de résultats

À Bientôt