Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Tri à partir d'une macro

Tri à partir d'une macro

4 réponses
Avatar
Daniel
Bonjour.
Je n'arrive pas à trouver la bonne syntaxe pour trier une plage d'une autre
feuille à partir d'une procédure WorkSheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
Sheets("Feuil2").Select
ActiveSheet.Range("A2:B10).Select
Sheets("Feuil2").Range("A2:B10).Sort _
Key1:=Range("A2"), order1:=xlAscending
End Sub

Merci d'avance.
Daniel
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky
Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
With Sheets("Feuil2")
.Range("A2:B10").Sort _
Key1:=.Range("A2"), Order1:=xlAscending
End With
End Sub

attention aussi , aprés tes B10 manque les """""""""
Youky

"Daniel" a écrit dans le message de news:

Bonjour.
Je n'arrive pas à trouver la bonne syntaxe pour trier une plage d'une
autre feuille à partir d'une procédure WorkSheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
Sheets("Feuil2").Select
ActiveSheet.Range("A2:B10).Select
Sheets("Feuil2").Range("A2:B10).Sort _
Key1:=Range("A2"), order1:=xlAscending
End Sub

Merci d'avance.
Daniel




Avatar
Daniel
Super, mais pourquoi ? (le guillemet mis à part)
En tout cas, merci.
Daniel
"Youky" a écrit dans le message de news:

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
With Sheets("Feuil2")
.Range("A2:B10").Sort _
Key1:=.Range("A2"), Order1:=xlAscending
End With
End Sub

attention aussi , aprés tes B10 manque les """""""""
Youky

"Daniel" a écrit dans le message de news:

Bonjour.
Je n'arrive pas à trouver la bonne syntaxe pour trier une plage d'une
autre feuille à partir d'une procédure WorkSheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
Sheets("Feuil2").Select
ActiveSheet.Range("A2:B10).Select
Sheets("Feuil2").Range("A2:B10).Sort _
Key1:=Range("A2"), order1:=xlAscending
End Sub

Merci d'avance.
Daniel








Avatar
Youky
Salut bien ,
Aprés le Key1 le Range n'utilise pas la bonne page donc il faut lui dire
Feuil2.Range(A2")
avec le with j'ai mis un point
Youky
"Daniel" a écrit dans le message de news:

Super, mais pourquoi ? (le guillemet mis à part)
En tout cas, merci.
Daniel
"Youky" a écrit dans le message de news:

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
With Sheets("Feuil2")
.Range("A2:B10").Sort _
Key1:=.Range("A2"), Order1:=xlAscending
End With
End Sub

attention aussi , aprés tes B10 manque les """""""""
Youky

"Daniel" a écrit dans le message de news:

Bonjour.
Je n'arrive pas à trouver la bonne syntaxe pour trier une plage d'une
autre feuille à partir d'une procédure WorkSheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
Sheets("Feuil2").Select
ActiveSheet.Range("A2:B10).Select
Sheets("Feuil2").Range("A2:B10).Sort _
Key1:=Range("A2"), order1:=xlAscending
End Sub

Merci d'avance.
Daniel












Avatar
Daniel
...que je n'avais pas remarqué. Un début de cataracte, sans doute.
Merci encore.
Daniel
"Youky" a écrit dans le message de news:

Salut bien ,
Aprés le Key1 le Range n'utilise pas la bonne page donc il faut lui dire
Feuil2.Range(A2")
avec le with j'ai mis un point
Youky
"Daniel" a écrit dans le message de news:

Super, mais pourquoi ? (le guillemet mis à part)
En tout cas, merci.
Daniel
"Youky" a écrit dans le message de news:

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
With Sheets("Feuil2")
.Range("A2:B10").Sort _
Key1:=.Range("A2"), Order1:=xlAscending
End With
End Sub

attention aussi , aprés tes B10 manque les """""""""
Youky

"Daniel" a écrit dans le message de news:

Bonjour.
Je n'arrive pas à trouver la bonne syntaxe pour trier une plage d'une
autre feuille à partir d'une procédure WorkSheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'*** la procédure est dans "Feuil1"
Sheets("Feuil2").Select
ActiveSheet.Range("A2:B10).Select
Sheets("Feuil2").Range("A2:B10).Sort _
Key1:=Range("A2"), order1:=xlAscending
End Sub

Merci d'avance.
Daniel