Trie automatique de plusieurs tableaux dans une meme feuille
matamdevil
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
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 :/....
EDIT: Ajout de la coloration syntaxique.
--------------------
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
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Bruler feuille de laurier - Guide
- Excel trier plusieurs colonnes en même temps - Guide
1 réponse
Bonjour
A adapter en remplaçant "Tableau1" et"Tableau2" ainsi que "cells(x,y)" par les plages de vos tableaux
cdlt
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