Feuille de rotation volley ball

Fermé

Niko2a - 19 janv. 2017 à 00:19
Niko2a - 6 févr. 2017 à 21:51

Bonjour,
j'ai créer un document Excel me permettant de faire des statistiques pour mon équipe de volley-ball. Je voudrais l'améliorer en ajoutant une feuille de rotation. En fait au Volley tout repose sur la rotation et j'aimerais pouvoir m'appuyer sur cette feuille pour en déduire des analyses. En fait ce qui serais parfait, c'est d'avoir un terrain avec 6 cases (représentant les joueurs sur le terrain) de chaque coté avec une équipe domicile et une équipe extérieur et qu'a chaque point marqué par l'une ou l'autre équipe, la rotation s'effectue dans le sens inverse des aiguilles d'une montre (de l'équipe qui à marqué le point bien sur).
quelqu'un peut il m'aider ???

Merci d'avance pour vos réponses.

A voir également:

Feuille statistiques volleyball
Feuille de score belote excel - Forum Excel
Feuille de pointage excel - Télécharger - Tableur
Comment supprimer une feuille sur word - Guide
Feuille excel de gestion belote - Forum Excel
Excel reporter des données sur une autre feuille avec conditions - Forum Excel

2 réponses

Réponse 1 / 2

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
19 janv. 2017 à 09:08

Bonjour Nikola ,

Si je peux me permettre ,

a chaque point marqué par l'une ou l'autre équipe, la rotation s'effectue dans le sens inverse des aiguilles d'une montre (de l'équipe qui à marqué le point bien sur)
C'est relativement faux.

Si je ne m'abuse , si l'équipe A est au service , et que l'équipe A remporte le point, la rotation ne s'effectue pas.

A l'inverse , l'équipe A est au service, et que l'équipe B remporte le point , il y a un rotation.

Je suis en train de travailler sur ce que tu demandes.
Merci de confirmer ou non ma version.

Cdlt,

Réponse 2 / 2

Niko2a
19 janv. 2017 à 11:34

Je ne sais pas si tu as eu ma réponse de ce matin car elle n'apparait pas dans notre discussion.
Je te disais donc que tu as tout a fait raison mon explication n'était pas complète.
je vais te transférer mon fichier ou j'ai fais un modèle, et si tu as le temps de me dire ce que tu en penses ça serait super bénéfique pour moi.

Merci d'avance.

link : https://1drv.ms/f/s!AludICfPoa2bjVcOT-3eBBKOvcA2

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
Modifié par Fahora le 19/01/2017 à 11:58

https://onedrive.live.com/redir?resid=CF0A93C35721B406!46972&authkey=!AEHUZzd1oNKpbf0&ithint=file%2cxlsx
Voilà ce que j'ai fait moi.

Dans la meme idée que toi , sauf qu'il n'y a pas de double case pour les joueurs , ca évite les problèmes.

Ensuite , on ajoute la possibilité de savoir quelle équipe est au service afin de pouvoir savoir si il y a rotation ou pas.

Et , on ajoute les scores.

Enfin on ajoute le code VBA pour effectuer la rotation , en utilisant uniquement les cellules qui concernent le score (les points) :

A ajouter dans la Feuille où il y a le terrain (clique droit sur l'onglet > Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9")) Is Nothing Then
Call RotaE1
End If
If Not Intersect(Target, Range("C10")) Is Nothing Then
Call RotaE2
End If
End Sub

Sub RotaE1()

    If Range("C6") = "Equipe B" Then
    
        Range("F5").Select
        Selection.Cut Destination:=Range("D6")
        Range("H5").Select
        Selection.Cut Destination:=Range("F5")
        Range("J5").Select
        Selection.Cut Destination:=Range("H5")
        Range("J7").Select
        Selection.Cut Destination:=Range("J5")
        Range("H7").Select
        Selection.Cut Destination:=Range("J7")
        Range("F7").Select
        Selection.Cut Destination:=Range("H7")
        Range("D6").Select
        Selection.Cut Destination:=Range("F7")
        
        Range("C6") = "Equipe A"
    End If
    
End Sub

Sub RotaE2()
    If Range("C6") = "Equipe A" Then
    
        Range("F11").Select
        Selection.Cut Destination:=Range("D12")
        Range("H11").Select
        Selection.Cut Destination:=Range("F11")
        Range("J11").Select
        Selection.Cut Destination:=Range("H11")
        Range("J13").Select
        Selection.Cut Destination:=Range("J11")
        Range("H13").Select
        Selection.Cut Destination:=Range("J13")
        Range("F13").Select
        Selection.Cut Destination:=Range("H13")
        Range("D12").Select
        Selection.Cut Destination:=Range("F13")
        
        Range("C6") = "Equipe B"
    End If
End Sub

Niko2a > Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023
19 janv. 2017 à 12:44

super merci beaucoup c'est génial! maintenant j'ai une autre question, comme le volley se joue en trois set gagnant comment puis je faire pour faire évoluer le score de chaque set sans devoir change de feuille. il faudrait un code permettant de dire qu'une fois arrivé à 25 points pour l'une des deux équipes si il y a deux points d'écart, le score passe à la ligne en dessous pour changer de set (en conservant le fait que l'évolution du score active la rotation).
merci vraiment pour ton aide.... j'espère ne pas trop abusé de ton temps.

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
Modifié par Fahora le 19/01/2017 à 13:46

Rien de bien méchant :
Tu décales SCORE en colonne A , ce qui te fait 3 colonnes (B,C,D) pour 3 sets.

Ainsi , dans le vba tu modifies :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9")) Is Nothing Then
Call RotaE1
End If
If Not Intersect(Target, Range("C10")) Is Nothing Then
Call RotaE2
End If
End Sub

par :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B9:D9")) Is Nothing Then
Call RotaE1
End If
If Not Intersect(Target, Range("B10:D10")) Is Nothing Then
Call RotaE2
End If
End Sub

De cette façon quand tu changeras le score de la ligne du haut , c'est léquipe A qui change et inversement

Niko2a > Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023
21 janv. 2017 à 14:06

Merci beaucoup, c'est vraiment top ! maintenant je vais essayer d'améliorer au fur et à mesure, je vais essayer de créer un ordre d'action. En fait comme dans mon fichier je rajoute +1 en double cliquant je voudrais créer un ordre d'action qui me permette de faire correspondre la rotation à des positions d'attaques dans le jeu. Ex : si je suis en position 6 (lorsque le passeur est en position 6) c'est le joueurs N°4 qui attaque en position 4, le joueur 5 qui attaque en 3 et le joueur 18 qui attaque en 2... etc.

En tout les cas merci infiniment pour ton aide

Niko2a > Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023
23 janv. 2017 à 15:45

Bonjour Fahora,
désolé de t'embêter encor, mais j'ai un petit soucis avec la rotation... car lorsque je veux automatiser le score et ne plus le rentrer manuellement, la rotation ne fonctionne plus... comment dois-je faire?
En faite dans mon tableau de saisie le score évolue en fonction des points marqués ou des fautes directes, et je voudrais que le score soit automatique en fonction de l'évolution du jeu... mais lorsque j’attribue une formule dans la case des scores la rotation ne fonctionne plus.
merci pour ton aide.

Discussions similaires

Bessoin d'un nom d'equipe volley

[Adobe Acrobat Reader] imprimer un livret

Comment dégonfler une balle foot à la maison

Rotation automatique impossible

La rotation automatique ne fonctionne plus

Coordonnée d'un point après rotation