JC de Lorient
XLDnaute Impliqué
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
ç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