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 recherche aide sur selectionchange

recherche aide sur selectionchange

1 réponse
Avatar
pat
Pouvez vous m'aider?
Probl=E8me avec proc=E9dure Private Sub=20
worksheet_selectionchange(ByVal target As Range) sous=20
excel 97
J'ai associ=E9 cette proc=E9dure =E0 une plage de ma feuille.=20
Quand on s=E9lectionne une cellule de cette plage un=20
UserForm s'affiche pour y rentrer des donn=E9es sp=E9cifiques.=20
Sans probl=E8me tout marche. J'ai utilis=E9 la proc=E9dure=20
suivante :
Private Sub worksheet_selectionchange(ByVal target As=20
Range)
If Not Intersect(target, Range("D10:W109")) Is Nothing=20
Then UserForm3.Show
Mais mon probl=E8me est quand je fais un triage ; En=20
s=E9lectionnant les cellules pour faire mon triage l'user=20
forme s'affiche et il faut que je le ferme pour que le=20
triage fonctionne. Je recherche donc la solution qui me=20
permettrait de fermer automatiquement cet UserForm.
Je pense que je doit d=E9sactiver La proc=E9dure Private Sub=20
worksheet_selectionchange(ByVal target As Range) mais=20
comment faire ? Ma proc=E9dure est la suivante pour trier si=20
il y a une personne pour me la compl=E9ter. Merci d'avance
patrice
Sub Trierfeuille ()
Range("B10:AI17").Select
Selection.Sort Key1:=3DRange("B10"),=20
Order1:=3DxlAscending, Header:=3DxlGuess, _
OrderCustom:=3D3, MatchCase:=3DFalse,=20
Orientation:=3DxlTopToBottom
End Sub

Merci de me r=E9pondre
patrice
Signaler un problème avec ce contenu

1 réponse

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
michdenis
Bonsoir Pat,

Avec ceci, cela devrait aller

Une remarque : Comme tu ne fais pas référence à aucune feuille en particulier dans ta procédure, si ta procédure est écrite
dans
un module standard, elle va s'appliquer sur la feuille active et cela signifie pas nécessairement sur la feuille que l'on
désire !!!
Si tu l'inscrit dans la feuille module où l'action se déroule.. pas de problème !

'--------------------------------
Sub Trierfeuille()
With Range("B10:AI17")
.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=3, MatchCase:úlse, Orientation:=xlTopToBottom
End With
End Sub
'--------------------------------

Salutations!


"pat" a écrit dans le message de news:550401c341b4$d992a150$
Pouvez vous m'aider?
Problème avec procédure Private Sub
worksheet_selectionchange(ByVal target As Range) sous
excel 97
J'ai associé cette procédure à une plage de ma feuille.
Quand on sélectionne une cellule de cette plage un
UserForm s'affiche pour y rentrer des données spécifiques.
Sans problème tout marche. J'ai utilisé la procédure
suivante :
Private Sub worksheet_selectionchange(ByVal target As
Range)
If Not Intersect(target, Range("D10:W109")) Is Nothing
Then UserForm3.Show
Mais mon problème est quand je fais un triage ; En
sélectionnant les cellules pour faire mon triage l'user
forme s'affiche et il faut que je le ferme pour que le
triage fonctionne. Je recherche donc la solution qui me
permettrait de fermer automatiquement cet UserForm.
Je pense que je doit désactiver La procédure Private Sub
worksheet_selectionchange(ByVal target As Range) mais
comment faire ? Ma procédure est la suivante pour trier si
il y a une personne pour me la compléter. Merci d'avance
patrice
Sub Trierfeuille ()
Range("B10:AI17").Select
Selection.Sort Key1:=Range("B10"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=3, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub

Merci de me répondre
patrice