Créer une macro

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2013

• #2

Re : Créer une macro

Bonjour
Avec une plage nommée "NomPrénom" quelque part, cette procédure dans le module de la feuille dvrait faire l'affaire:

VB:

Private Sub Worksheet_Change(ByVal Target As  Range)
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).FormulaR1C1 = "=INDEX(NomPrénom,RC3,1)"
Target.Offset(, 2).FormulaR1C1 = "=INDEX(NomPrénom,RC3,2)"
Target.Offset(, 3).Value = Now
Target.Offset(1).Select
Application.EnableEvents = True
End Sub

Remarque: Il devrait être possible de faire un peu mieux avec un userform qui détecte la frappe de la barre Espace et note l'heure aussitot: à charge d'un opérateur travaillant au pavé numérique de taper les dossards dans l'ordre énoncé par celui qui ne regarde que la ligne d'arrivée, la main à fleur de la barre espace.

Cordialement.

 

Dernière édition: 4 Janvier 2013

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 4 Janvier 2013

• #3

Re : Créer une macro

Bonjour à tous,

en pièce jointe un fichier qui me sert régulièrement pour effectuer des classements

à+
Philippe

 

Pièces jointes

• 111.xlsm

  212.4 KB · Affichages: 175
• 111.xlsm

  212.4 KB · Affichages: 182
• 111.xlsm

  212.4 KB · Affichages: 200

Vote positif 0 Vote négatif

R

raid56

Guest

• 4 Janvier 2013

• #4

Re : Créer une macro

Bonjour

Super...et merci
Petite complication nous espèrons 4000 participants sur 4 courses avec des départs différents et des séries de dossards différentes mais la même ligne d'arrivée ...
Je souhaite mettre cette saisie en parallèle avec la saisie des puces sur le tapis pour répondre aux réclamations.
Sportivement

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 4 Janvier 2013

• #5

Re : Créer une macro

Merci beaucoup

C'est bien le but rechercher, simplifier et réduire au mini la saisie
Je vais essayer de mettre en application.Mais celà s"annonce laborieux compte tenu d emon inexpéreince
Comment nommer la plage "nomprénom"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2013

• #6

Re : Créer une macro

Le mieux c'est de sélectionner la plage puis de tapez ce nom dans la Zone Nom à gauche de la barre de formule
À +

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 4 Janvier 2013

• #7

Re : Créer une macro

Pouvez vous m'aider à mettre en forme ? Merci
Sub Macro1()
'
' Macro1 Macro
'

'
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).FormulaR1C1 = "=INDEX(NomPrénom,RC3,1)"
Target.Offset(, 2).FormulaR1C1 = "=INDEX(NomPrénom,RC3,2)"
Target.Offset(, 3).Value = Now
Target.Offset(1).Select
Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2013

• #8

Re : Créer une macro

Où est-ce que vous coincez ?
Ah! Vous me donnez l'impression d'avoir mis le code dans un module ordinaire, rubrique "Modules" au lieu de l'avoir mis dans le bon module de feuille de la rubrique "Microsoft Excel Objets"…
À +

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 4 Janvier 2013

• #9

Re : Créer une macro

Merci de vote réponse
J'ai mis ce fichier dans Créer une Macro et Pas à Pas détaillé

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Janvier 2013

• #10

Re : Créer une macro

Il doit impérativement être mis dans le module de la feuille et pas dans un module ordinaire.
Vous pouvez faire un clic droit sur l'onglet et sélectionner la ligne de menu contextuel "Visualiser le code"
À +

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 5 Janvier 2013

• #11

Re : Créer une macro

Merci C'est Génial
Est il possible de faire une petite modif ?
L'affichage du Nom Prénom se fait très bien pour le première série de 1 à 598, mais pas pour les autres , or j'ai 4 courses distinctes avec 4 séries de dossard
0 à 1000
1001 à 2000
2001 à 3000
4001 à 5000
Je vous met le fichier en PJ
Bien Cordialt
Merci

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 5 Janvier 2013

• #12

Re : Créer une macro

[Merci C'est Génial
Est il possible de faire une petite modif ?
L'affichage du Nom Prénom se fait très bien pour le première série de 1 à 598, mais pas pour les autres , or j'ai 4 courses distinctes avec 4 séries de dossard
0 à 1000
1001 à 2000
2001 à 3000
4001 à 5000
Peut t on automatiser l'enregistrement ?
Je vous met le fichier en PJ
Bien Cordialt
Merci

 

Pièces jointes

• essai saisie.xlsm

  93.8 KB · Affichages: 319

Dernière modification par un modérateur: 5 Janvier 2013

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2013

• #13

Re : Créer une macro

Modifiez le code comme suit:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).FormulaR1C1 = "=VLOOKUP(RC3,NomPrénom,2,FALSE)"
Target.Offset(, 2).FormulaR1C1 = "=VLOOKUP(RC3,NomPrénom,3,FALSE)"
Target.Offset(, 3).Value = Now
Target.Offset(1).Select
Application.EnableEvents = True
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

R

raid56

Guest

• 7 Janvier 2013

• #14

Re : Créer une macro

Un grand merci c'est génial !!!Plus de stylo; plus de papier!
Afin d'éviter toute perte peut-on automatiser l'enregistrement après la saisie ?
Cordialement.

 

Dernière modification par un modérateur: 14 Janvier 2013

Vote positif 0 Vote négatif