soucis avec tri en VBA

[JC de Lorient]

bonjour le forum

ça fait 2 heures que je suis sur ça et je m'en sors pas !
j'ai ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('C2:C100')) Is Nothing Then
Dim a As String
Dim b As Integer
a = InputBox('quel nom')
ActiveCell = a
b = Sheets('Info').Range('A65536').End(xlUp).Row + 1
Sheets('Info').Range('A' & b) = a
Sheets('Info').Range('A1:A' & b).Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub

mais ou est mon erreur ????
merci de votre aide, bonne journée

JC

 

[porcinet82]

Salut JC de Lorient,

Quand c'est comme ca, fait une pause prend un café et tout rentre dans l'ordre, regarde moi, une petite pause et tout repard.
Je viens de tester ton code et chez moi, il fonctionne parfaitement, ou est le problème au juste?

@+

Message édité par: porcinet82, à: 22/02/2006 12:55

 

[JC de Lorient]

salut porcinet, re le forum

suis navré mé le souci n'est pas là !
je souhaite que mon double click intervienne sur C2:C100 et là tout roule mais ça bug uniquement sur le tri
suis perduuuuuuuuuuuu !! lol

JC

 

[JC de Lorient]

re
a priori ça bug sur cette ligne :

Sheets('Info').Range('A1:A' & b).Select

mé là suis ds le flou total !!!

JC

 

[porcinet82]

re,

Moi cette ligne marche fonctionnement, ainsi que le tri, cependant, tout depend quel tri tu eux effectuer, si c'est sur une colonne seulement, ou si tu veux faire un tri étendu.
Tu peux pas mettre un bout de ton fichier joint comme exemple?

@+

 

[JC de Lorient]

re et merci
en pièce jointe le fichier

JC [file name=remise.zip size=24246]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/remise.zip[/file]

 

[Hervé]

Bonjour tout le monde

jc, j'ai pas ouvert ta pièce jointe, mais je suppose que tu as le souci classique de la biere et du frigo

On ne peut pas sélectionner une cellule d'une autre feuille sans avoir sélectionner la feuille avant.

comme on ne peut pas prendre une biere dans un frigo sans avoir ouvert le frigo avant.

essaye un truc comme ca :

Sheets('Info').Range('A' & b) = a
with Sheets('Info')
.Range('A1:A' & b).Sort Key1:=.Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end with

salut

Message édité par: hervé, à: 22/02/2006 13:35

 

[JC de Lorient]

re
trop de la balle !!!
ben j'y étais très loin
je crois que je vé me souvenir de la bière et du frigo !

merci encore
JC

 

[Jacques87]

Bonjour JC

Voila qui devrait fonctionner
Une petite remarque : lorsque tu travailles sur plusieeurs feuilles en même temps, ça ne mange pas de pain que de rappeller à chaque fois le nom de la feuille. C'était le cas ici

Bon courage [file name=remise_20060222135304.zip size=19790]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/remise_20060222135304.zip[/file]

 

[Jacques87]

Bonjour Hervé

Oups, je ne t'avais pas vu
Je fus moins explicite que toi, mais j'apprécie le coup de la bière et du frigo, c'est quand même mieux que le coup de la plage et la feuille que j'ai mis en évidence dans le fichier corrigé

Amicalement

PS : ton image est d'autant plus explicite quand il y a plusieurs frigos à la maison

 

[porcinet82]

re JC de Lorient, salut Jacques87, salut Hervé,

Bon comme je n'avais pas laissé tomber le problème de notre ami JC, je suis parvenu a la meme conclusion qu'Hervé mais avec une petite demi-heure de plus. Je retiens la formule du frigo et de la bière

Bonne journée a tous.

@+