curseur se placant automatiquement sur ligne cree

  • Initiateur de la discussion Initiateur de la discussion DUPONTEL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DUPONTEL

XLDnaute Junior
bonjour
avant tout merci à tous ceux qui ont repondu aux posts precedents , m'evitant des maux de têtes 🙄
j'ouvre un nouveau post concernant un probleme

j'ai un classeur (ci joint ) avec en colonne b (de b11 à b300 pour l'instant une liste de noms et prenoms dans la même cellule B.
grace à la macro cette liste est numéroté et surtout les noms ajoutés sont triés automatiquement par ordre alphabetique.
le problème est que si je suis en ligne 300 et ue le nom et prénom rentré soit par exemple dupont ce nom est classé et une ligne est crée grcâe au tri . ca c'est très bien
mais j'aimerais que cette ligne crée soit selectionnée automatiquement par le curseur pour eviter de la chercher avec la barre de defilement verticale.

par avance merci
 

Pièces jointes

Re : curseur se placant automatiquement sur ligne cree

Bonjour Dupontel, le forum,
en modifiant le code comme ci-dessous, dis-nous si ça marche:
VB:
    Private Sub Worksheet_Change(ByVal Target As Range)
    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))
    x = Target.Value
    Range("A11:N" & 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
   
    Range("b:b").Find(x).Activate

    Application.EnableEvents = True
    End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour