Cellule en tant que case à cocher et copier coller

Bonsoir à toute et a tous.

J'ai encore besoin de votre aide.llent page arrivée cellulC96 et d96

J'ai une appli qui m permet de classer les arrivées lors d'un cyclo-cross.

Dans ce tableau il y a plusieurs catégories.

Les Am (adultes masculins) durée de course 50 min

Les Fa (adultes féminines) durée de course 30 minutes

Les CF (15-16 ans) durée de course 30 minutes

les MJ (13-14 ans) durée de course 20 minutes

et les JS (17-19 abs ) durée de course 40 minutes.

Le départ d'une épreuve est décalée d'un minute entre chaque catégorie.

Ceux dont la durée de course est la plus courte s'arrête avant et je voudrais pouvoir envoyer l'heure de fin de course et le temps de passage de la feuille trois par exemple vers la feuille arrivée.

J'ai joint un exemple de tableau.

Si par exemple page 3ème tour

le coureur de la ligne 96 à fini sa course je voudrais que la cellule k96 soit cochée(x par exemple) et cela commande une macro

qui copie les cellules C96 et D96 et les com.

Je ne veut pad utiliser de case à cocher, car il en beaucoup trop à lettre en place.

Merci d'avance pour votre aide.

bonjour,

changer le format de la colonne K en Webdings et ajoutez un "a" pour activer la macro, alors la ligne sera copier&coller vers "arrivee" et la ligne sera masquée.

Private Sub Worksheet_Change(ByVal Target As Range)
     Set c = Intersect(Target, Range("K4:K103"))     'seulement les changements dans cette plage
     If Not c Is Nothing Then     'ces changements
          For Each cl In c.Cells     'boucle ces cellules
               If cl.Value = "a" Then     'valeur est un a (minisucle) mais en font "Webdings"
                    Sheets("Arrivee").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 10).Value = cl.EntireRow.Value     'copy les 10 premiers cellules vers arrivee
                    cl.EntireRow.Hidden = True     'cacher la ligne
               End If
          Next
     End If
End Sub

Bonsoir BsAlv.

Merci pour aide.

J'ai testé ton code, mais il affiche une erreur c objet requis.

Petite question que veux tu dise en "changer la colonne K en Webdings ?

Petite précision, les cellules C6 et D96 de la page "3ème tour" doivent être collés dans les cellule C96 et D96 de la page "Arrivée"

Encore merci.

A te relire.

bonjour Ldopa,

moi, je n'utilise pas "option explicit", donc il faut ajouter la ligne "Dim c, cl"

Puis, j'au aussi ajouté le temps actuel dans colonne L de "Arrivee".

Concernant la colonne K de "3eme tour", vous choisissez pour toute la colonne la police "Webdings" + eventuellement gras, 11 points et couleur rouge. Alors si vous mettez un miniscule "a" dans une cellule, cela se voit comme une coche.

Bonjour BsAlv.

Impeccable cela fonctionne.

Je n'ai plus qu'à mettre cela en forme.

Je clos le poste

A te relire.