Trie automatique de plusieurs tableaux dans une meme feuille

Fermé

matamdevil Messages postés 1 Date d'inscription mercredi 6 mai 2015 Statut Membre Dernière intervention 6 mai 2015 - Modifié par Whismeril le 6/05/2015 à 16:17
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 8 mai 2015 à 08:49

Bonjour,

Je ne suis pas très expérimenté en vba et je cherche un moyens de créer une vba qui va trier mon tableau a chaque fois que j'y inscrit une nouvelle donnée...

J'ai trouvé cette vba qui fonctionne à merveille pour un tableau mais aussitôt que je veux le faire avec deux tableaux différents ca ne fonctionne plus :/....

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("salut[colonne2]")) Is Nothing Then
    Exit Sub
Else
    Range("salut[colonne1]").Sort Key1:=Cells(3, 2), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub

EDIT: Ajout de la coloration syntaxique.

--------------------

A voir également:

Trie automatique de plusieurs tableaux dans une meme feuille
Message automatique thunderbird - Guide
Feuille de pointage excel - Télécharger - Tableur
Tableaux croisés dynamiques - Guide
Réponse automatique outlook - Guide
Excel reporter des données sur une autre feuille avec conditions - Forum Excel

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 mai 2015 à 08:49

Bonjour

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("Tableau1")) Is Nothing Then
        Range("Tableau1").Sort Key1:=Cells(x, y), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ElseIf Not Intersect(Target, Range("Tableau2")) Is Nothing Then
        Range("Tableau2").Sort Key1:=Cells(x, y), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
End Sub

A adapter en remplaçant "Tableau1" et"Tableau2" ainsi que "cells(x,y)" par les plages de vos tableaux
cdlt

Discussions similaires

ou sont les bananes ?

exo pix

liste de noms par ordre alphabétique

colis à la plateforme colis ?

Feuille de score belote

Discussions similaires

Newsletters