veriti site des amis d'excel

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement

Re : postionner automatiquement le curseur sur ligne crée

Objet : Re : postionner automatiquement le curseur sur ligne crée
par BrunoM45 sur 10/01/2014 04:52:17

Bonjour anaxagore

Tu peux essayer ce code


Private Sub Worksheet_Change(ByVal Target As Range)

  Dim LigNew As Long

  Application.EnableEvents = False

  On Error Resume Next

  If Not Intersect(Target, Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then

    Target.Value = UCase(Mid(Target.Value, 1, InStr(1, Target.Value, " ") + 1)) & LCase(Mid(Target.Value, InStr(1, Target.Value, " ") + 2, Len(Target.Value) - InStr(1, Target.Value, " ") + 1))

    ' Inscrire un indicateur de nouvellement saisi dans la colonne O

    Range("O" & Target.Row) = "New"

    ' Faire le tri du tableau avec la colonne O en plus

    'Range("A11:N" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes

    Range("A11:O" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes

  End If

  For i = 11 To Range("B" & Rows.Count).End(xlUp).Row

    Range("A" & i).Value = i - 10

  Next i

  ' Retrouver le nom qui vient d'être saisi grace à l'indicateur

  LigNew = Range("O:O").Find(What:="New").Row

  ' Se positionner sur la ligne

  Range("C" & LigNew).Select

  ' On, peut effacer l'indicateur

  Range("O" & LigNew).ClearContents

  '

  Application.EnableEvents = True

End Sub

A+