Problème de selection de plage

flip86 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
flip86 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voici mon code

Private Sub CommandButton1_Click()

Dim bon As Object
Set bon = CreateObject("Excel.Application")

emplacement = "C:\Classeur2.xls"

bon.Workbooks.Open emplacement

bon.ActiveSheet.Range("A5:H8").Select
Selection.UnMerge
Selection.Sort Key1:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

bon.Workbooks.Close
End Sub

J'ai un problèeme lors de la selection de ma plage

Il me met la methode sort de la classe range a echoue

il me semble que ce soit la ligne "" bon.ActiveSheet.Range("A5:H8").Select "" qui ne fonctionne pas

Merci d'avance pour votre aide

FT Me204FLIP

1 réponse

flip86 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
petite erreur de ma part

il semble que ce ne soient pas la selection mais la fonction sort qui bug puisque la commende Selection.Unmerge fonctionne

pourtant avec la meme syntaxe et sur un test d'un classeur en cours cela fonctionne

Qqqn peut il me donner des details sur la fonction sort

Merci d'avance

FLIP86 FT Me204
0