XL 2016 Private Sub Worksheet_Change(ByVal Target As Range) - Comment enchainer

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2021

• #2

Bonjour.
Peut être :

VB:

    If Target.Column <> 112 And Target.Column Mod 9 <> 2 Then Exit Sub

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #3

Bonjour ; Slt Bernard
Un début juste en rapport avec ta demande

Krist-Rider à dit:

Lors le la saisie du dossard en DH le temps s'inscrit dans la colonne DS.

Cliquez pour agrandir...

! : j'ai ajouter un screenupdating dans ta sub RAZ , cela va un peu + vite

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #4

Pb réseau pas possible joindre fichier

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("DH5:DH104")) Is Nothing Then
 
Ad = Target.Address
Col = Target.Column + 9
Rang = Target.Row

If Target.Count > 1 Then Exit Sub

Cells(Rang, Col) = Range("DQ3")

End If

End Sub

Pour la Sub RAZ : mettre Application.screenupdating=false après ton 1er message
puis remmetre à True avant ton message de fin

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #5

Bon en relisant le sujet j'arrive au fichier joint , ne maîtrisant pas Le MOD (modulo) de DRANREB j'ai fais
avec plage , le résultat est le même
Pour finir ; Si déjà un temps final en DQ5 et que en DS5 un temps s'est inscrit DQ5 ne sera pas modifié donc pas le temps non plus
Je mets mon fichier , tu pourras reprendre la Sub Change pour le tien ; Il faudrait mettre aussi les Col temps de chaque tour à un format 'heure' comme 00:00:00 c'est plus parlant

PS : Bizarre tu écrases tes formules en DQ avec les résultats ? je pense que c'est à revoir

 

Pièces jointes

• CX 24102021_GestionClassement r03-2021-Beta-HD.xlsm

  649.4 KB · Affichages: 6

Vote positif 0 Vote négatif

K

Krist-Rider

XLDnaute Nouveau

• 20 Octobre 2021

• #6

Bonsoir Hervé62,
Merci beaucoup pour ton intervention rapide et efficace. C'est parfait je n'ai modifié qu'une chose : "Col1 = Target.Column + 9" devient : "Col1 = Target.Column + 11" pour ne pas écraser la formule en DQ et écrire le temps en DS. Bonne remarque pour le format, mais comme je n'avais pas su écrire les temps intermédiaires le format n'avait pas été finalisé ;-)
Pour DQ je ne fais qu'un "Range("DQ3").Select Selection.ClearContents" qui remet le chronomètre à 0. Les formules dans la colonne DQ ne sont pas touchées.
Encore un grand merci pour ton intervention
Bonne soirée

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #7

Re
Bon content que ça aille , regarde aussi le screenUpdating =false quand tu effaces cela évite toutes les transitions d'écran pendant le déroulement
et le blocage de cel pour ne pas modifier l'arrivée alors ???
je sais qu'il y a une faille .... mais non réparable A toi de deviner ? c'est pour les 'Tordu" dans mon genre
car je suis tombé dessus en testant !!!!!!!
sinon pour ta gouverne je suis passé par la "validation de données"
Ton appli est bien "chiadé" , bonne continuation

 

Vote positif 0 Vote négatif

K

Krist-Rider

XLDnaute Nouveau

• 21 Octobre 2021

• #8

Salut herve62,
ScreenUpdating=false c'est parfait !!!
Pour le blocage des valeurs dans les cellules (temps de chaque tour et temps à l'arrivée) je ne sais pas faire.
En fait l'idéal serait de pouvoir "figer" la cellule si elle a été implémentée une fois. Exemple concret : saisie d'un numéro de dossard érroné : le fait de modifier le numéro de dossard modifie également le temps, mais de fait, seul le numéro de dossard doit être modifié. Bon je vais y réfléchir ...
Test en grandeur nature ce WE sur un cyclo-cross ... cross the fingers !!!
Merci pour ta collaboration, ça permet de progresser.
A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 21 Octobre 2021

• #9

Bonsoir @Krist-Rider
Pour le blocage d'une cellule tu fais Menu : données > validation des données (2 fois) là tu as options : > Autoriser : il faut selectionner Personnalisé puis tu mets ta formule
du genre = DS4="-'
Ce qui veut dire que dans ta cellule ( DH4 =5) tu n'autorise la saisie que si DS4="-" donc si DS4="00:58:34" .. ben tu peux plus changer car c'est pas = à "-"
Au début c'était "-" donc tu as pu entrer le N° de dossard le temps s'est inscrit
Je pense qu'avec ces explications tu pourras implémenter toutes les cellules de chaque tour

le fait de modifier le numéro de dossard modifie également le temps, mais de fait, seul le numéro de dossard doit être modifié.

OUh là !! ça part dans le marécage !!!! va falloir que tu réfléchisse beaucoup vu que déjà si je pige ton chrono ......court toujours ​

 

Dernière édition: 21 Octobre 2021

Vote positif 0 Vote négatif

K

Krist-Rider

XLDnaute Nouveau

• 23 Octobre 2021

• #10

Bonjour Hervé62
Pour être un peu plus clair : l'opérateur peut faire une erreur de saisie sur un numéro de dossard. Corriger postérieurement le n° du dossard ne signifie pas modifier également le temps capturé, au contraire. Le temps de passage est correct, seul le numéro de dossard est à corriger.
Validation des données n'est pas adaptée car le message d'alerte Excel fait perdre beaucoup trop de temps dans la saisie (5/6 coureurs peuvent se présenter quasi en même temps).
Bref, j'ai fais ce que tu m'as conseillé : "va falloir que tu réfléchisses beaucoup" ... J'ai donc réfléchis et la lumière est venue avec une modification du VBA :
...
If Target.Offset(0, 11) = 0 Then Target.Offset(0, 11) = Range("DQ3")
'Cells(Rang, Col1) = Range("DQ3")
et
If Target.Offset(0, 5) = 0 Then Target.Offset(0, 5) = Range("DQ3")
'Cells(Rang, Col2) = Range("DQ3")

Nouveau step : récupérer dans une synthèse les temps de passage de chaque coureur à chaque tour, je vais m'y coller prochainement ...
Bon WE

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 23 Octobre 2021

• #11

Bonsoir
Slt @Krist-Rider
J'ai déjà eu le tour avec ce genre de Pb ; en fait Excel n'a pas de fonction "mémoire" de cellule donc j'enregistrais dans une cel équivalente dans un autre onglet et donc dans le Change on compare ces 2 valeurs
en fait on fait un clone ou copie d'infos ailleurs
Bonne réflexion , j'espère qu'il en découlera une solution
Bon WE aussi

 

Vote positif 0 Vote négatif