annee 2017

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

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

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

Voir la suite
Image 3

Hommage

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

Voir la suite
Image 4

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



postionner automatiquement le curseur sur ligne crée
#1
Invité


Informations sur l'utilisateur
bonjour
j'ai un tableau avec en colonne b ou je rentre un nombre conséquent de noms et prénom .
je joints le fichier avec sa macro qui permet de numéroter le nombre de noms et prénoms mais aussi de classer automatiquement par odre alphabetique.
le tri va se faire automatiquement .

existes t il une solution afin que cette ligne crée par exemple Dupont soit sélectionné automatiquement pour eviter de chercher avec la barre de defilement vertical la ligne Dupont lorque la base comporte plus de 500 noms.
merci
ci joint fichier avec sa macro
merci par avance

Joindre un fichier:


Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 08/01/2014 13:36
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : postionner automatiquement le curseur sur ligne crée
#2
Invité


Informations sur l'utilisateur
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(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))
    
' 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
  ' 
Onpeut effacer l'indicateur
  Range("O" & LigNew).ClearContents
  '
  
Application.EnableEvents True
End Sub


A+

Date de publication : 10/01/2014 04:52
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Information

Bienvenue sur le forum VeriTi,

 

Une équipe de bénévoles se tient à votre disposition pour vous venir en aide. N'hésitez pas à poser votre question en rapport avec Excel sur le forum Excel, et une question générale en rapport avec le site sur le forum VeriTi

 

Bonne programmation

 

Equipe VeriTi ;-)


Haut


Re : postionner automatiquement le curseur sur ligne crée
#3
Invité


Informations sur l'utilisateur
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

Date de publication : 14/02/2014 15:35
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut







Vous pouvez consulter les sujets.
Vous ne pouvez pas débuter un nouveau sujet.
Vous ne pouvez pas répondre aux messages.
Vous ne pouvez pas modifier vos messages.
Vous ne pouvez pas supprimer vos messages.
Vous ne pouvez pas créer des sondages.
Vous ne pouvez pas participer aux sondages.
Vous ne pouvez pas joindre des fichiers à vos messages.
Vous ne pouvez pas publier vos messages sans approbation.
Vous ne pouvez pas utiliser ce type de sujet.
Vous ne pouvez pas utiliser le HTML.
Vous ne pouvez pas utiliser une signature dans vos messages.

[Recherche avancée]


Copyright 2013 Powered by XOOPS © 2001-2013