Re : postionner automatiquement le curseur sur ligne crée

Publié par Patrice740 le 14/02/2014 15:35:04
Bonjour,

Essaies ce code
Private Sub Worksheet_Change(ByVal Target As Range)
  
Application.EnableEvents False
  On Error Resume Next
  
If Not Intersect(TargetRange("B11:B" Range("B" Rows.Count).End(xlUp).Row)) Is Nothing Then
    Target
.Value UCase(Mid(Target.Value1InStr(1Target.Value" ") + 1)) & LCase(Mid(Target.ValueInStr(1Target.Value" ") + 2Len(Target.Value) - InStr(1Target.Value" ") + 1))
    
Range("A11:N" Range("B" Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes
  End 
If
  
'Chercher la ligne avant celle sans numéro et se décaler '
  
Range("A10").End(xlDown).Offset(12).Select
   
For 11 To Range("B" Rows.Count).End(xlUp).Row
    Range
("A" i).Value 10
  Next i
  Application
.EnableEvents True
End Sub


Cordialement

Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=356