M
Marc
Guest
Bonsoir le forum,
Quelqu'un peut-il m'aider.
J'ai un problème avec ce code, il ne marche pas :
Private Sub Ajout_Op_Click()
Worksheets('Listes').Select
If Range('b1').Value = '' Then
Range('b1').Value = Nom_opérateur.Value
Else
Range('B1').End(xlDown).Offset(1, 0).Value = Nom_opérateur.Value (C'est là que ça bloque)
End If
Range('b1:' & Range('b1').End(xlDown).Address).Select
Selection.Sort Key1:=Range('b1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Nom_opérateur.Value = Nom_opérateur.Text
Ajout_Sup_Op.Hide
End Sub
Par contre celui là fonctionne et il n'y a que la colonne qui change :
Private Sub Ajout_CE_Click()
Worksheets('Listes').Select
If Range('A1').Value = '' Then
Range('A1').Value = Nom_CE.Value
Else
Range('A1').End(xlDown).Offset(1, 0).Value = Nom_CE.Value (juste la lettre de la colonne qui change)
End If
Range('A1:' & Range('A1').End(xlDown).Address).Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Nom_CE.Value = Nom_CE.Text
Ajout_Sup_CE.Hide
End Sub
Quelqu'un peut-il m'aider.
J'ai un problème avec ce code, il ne marche pas :
Private Sub Ajout_Op_Click()
Worksheets('Listes').Select
If Range('b1').Value = '' Then
Range('b1').Value = Nom_opérateur.Value
Else
Range('B1').End(xlDown).Offset(1, 0).Value = Nom_opérateur.Value (C'est là que ça bloque)
End If
Range('b1:' & Range('b1').End(xlDown).Address).Select
Selection.Sort Key1:=Range('b1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Nom_opérateur.Value = Nom_opérateur.Text
Ajout_Sup_Op.Hide
End Sub
Par contre celui là fonctionne et il n'y a que la colonne qui change :
Private Sub Ajout_CE_Click()
Worksheets('Listes').Select
If Range('A1').Value = '' Then
Range('A1').Value = Nom_CE.Value
Else
Range('A1').End(xlDown).Offset(1, 0).Value = Nom_CE.Value (juste la lettre de la colonne qui change)
End If
Range('A1:' & Range('A1').End(xlDown).Address).Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Nom_CE.Value = Nom_CE.Text
Ajout_Sup_CE.Hide
End Sub