Cherche données dans VBA

Bonjour,

Voici un fichier Excel de championnat football.

Je n'arrive pas à trouver dans le code VBA ou se trouve le paramétrage des points pour le classement

Une victoire vaut actuellement 3 points et je voudrais la passer à 4 points.

Merci de votre aide

Bonjour,

Tu as choisi ton fichier mais tu as du oublier de le joindre ^^

oooops

c'est mieux la?

Si tu ne peux pas le réduire, tu peux toujours montrer ton code sur un message et cliquant sur le bouton Code et en collant ton code entre les guillemets.

On trouvera peut être à vu la partie du code qui t'intéresse.

c'est bon j'ai reussi à le joindre

Je viens de regarder, ça doit venir de la feuille championnat (j'ai accès qu'à Saisie et création cela bug quand j'ouvre le fichier et seul ces deux pages apparaissent) je ne vois pas le code des autres feuilles s'il y en a et surtout je ne vois pas les références vu que je ne vois pas la feuille et que c'est essentiellement du copier/coller

Les macros, j'ai bien regarder, ça ne semble pas être dessus, le formulaire encore moins. La feuille création sert à ... ba euh à créer.

Sinon la feuille saisie comme j'ai dit c'est du copier/ coller de la feuille championnat.

Sans voir cette feuille, je ne peux pas dire comment ça fonctionne, j'ai juste pu repérer la commande qui dit de coller dans la zone qui concerne les points.

En bas clic droit ou il y a les onglets et afficher la feuille championnat tu n'a pas accès?

Dim annul As Integer

Private Sub CommandButton2_Click()
Dim b As Integer

Msg = "Attention voulez-vous vraiment effacer les données" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "ATTENTION !!! "  ' Définit le titre.
Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' L’utilisateur a choisit Yes.
        annul = 1
        Sheets("création").Visible = True
        Sheets("création").Select
        Sheets("création").Range("B1,B11,E11").Select
        Selection.ClearContents
        Sheets("création").Range("H11:J26").Select
        Selection.ClearContents
        Sheets("championnat").Visible = True
        Sheets("championnat").Select
        b = Sheets("championnat").Range("A65536").End(xlUp).Row
        Sheets("championnat").Range("A3:F" & b).Select
        Selection.ClearContents
        Sheets("championnat").Range("J1:K1").Select
        Selection.ClearContents
        Sheets("equipe").Visible = True
        Sheets("equipe").Select
        Sheets("equipe").Range("A2:A21").Select
        Selection.ClearContents
        Sheets("saisie").Visible = True
        Sheets("saisie").Select
        Sheets("saisie").Range("I2:Q21").Select
        Selection.ClearContents
        Sheets("saisie").Range("C19:F23").Select
        Selection.ClearContents
        Sheets("saisie").Range("A20:F27").Select
        Selection.ClearContents
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        annul = 0
        Sheets("création").Visible = False
        Sheets("championnat").Visible = False
        Sheets("saisie").Visible = False
        Sheets("choix").Visible = True
        Sheets("equipe").Visible = False
        Sheets("choix").Select
        Sheets("choix").Range("A1").Select
    Else    ' L’utilisateur a choisi No.
        Exit Sub ' Effectue une action.
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("championnat").Visible = True
jc = Sheets("championnat").Range("J5")
ComboBox1.ListFillRange = "championnat!I1:I" & jc & ""
ComboBox2.ListFillRange = "championnat!I1:I" & jc & ""
Sheets("championnat").Select
A = Sheets("championnat").Range("J4").Value / 2
Sheets("championnat").Visible = False
Sheets("saisie").Select
If annul = 0 Then
For compt = 19 To 18 + A
    If ActiveCell.Address() = "$C$" & compt & "" Then
        UserForm1.Show
    ElseIf ActiveCell.Address() = "$D$" & compt & "" Then
        UserForm1.Show
End If
Next compt
End If
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Click()
Sheets("championnat").Visible = True
journée = Sheets("championnat").Range("J1")
m = Sheets("championnat").Range("J4") / 2
journées = (journée * m) + 2
h = journées - m + 1
    Sheets("championnat").Select
    Sheets("championnat").Range("A" & h & ":F" & journées & "").Select
    Selection.Copy
    Sheets("saisie").Select
    Sheets("saisie").Range("A19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("championnat").Visible = False
Sheets("saisie").Select
Sheets("saisie").Range("A1").Select
End Sub

Private Sub ComboBox2_Click()
Application.ScreenUpdating = False
Sheets("championnat").Visible = True
jour = Sheets("championnat").Range("K1")
m = Sheets("championnat").Range("J4").Value / 2
h = (jour * m) + 2
ActiveWorkbook.Names.Add Name:="Eqr", RefersToR1C1:= _
        "=championnat!R2C3:R" & h & "C6"
    ActiveWorkbook.Names.Add Name:="Eqv", RefersToR1C1:= _
        "=championnat!R2C4:R" & h & "C6"
    ActiveWorkbook.Names.Add Name:="Nul", RefersToR1C1:= _
        "=championnat!R2C14:R" & h & "C15"
    ActiveWorkbook.Names.Add Name:="Perdant", RefersToR1C1:= _
        "=championnat!R2C13:R" & h & "C13"
    ActiveWorkbook.Names.Add Name:="Vainqueur", RefersToR1C1:= _
        "=championnat!R2C12:R" & h & "C12"
Macro1
Sheets("saisie").Range("A1").Select
End Sub

Private Sub CommandButton1_Click()
Sheets("championnat").Visible = True
If Sheets("championnat").Range("J1").Value = "" Then
MsgBox ("Attention vous n'avez pas choisi la journée !")
GoTo saut
End If
journée = Sheets("championnat").Range("J1")
m = Sheets("championnat").Range("J4").Value / 2
n = Sheets("championnat").Range("J5").Value
journées = (journée * m) + 2
h = journées - m + 1
l = 18 + m
    Sheets("saisie").Select
    Sheets("saisie").Range("A19:F" & l & "").Select
    Selection.Copy
    Sheets("championnat").Visible = True
    Sheets("championnat").Select
    Sheets("championnat").Range("A" & h & "").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
saut:
Sheets("championnat").Visible = False
Sheets("saisie").Select
Range("A1").Select
End Sub

J'ai trouvé il y a une feuille équipe qui se cachait

Excel qui avait planter au début, pas moyen d'accéder aux autres onglets.

Je viens de tomber dessus, je me disais, c'est pas possible, j'ai retourné ton code 2-3 fois, j'affiche les feuilles cachées, je regarde sur la feuille équipe : B2

=(D2*3)+E2

Bon ba je pense que tu as changé le *3 en *4 et que tu l'as étiré vu ton message ? ^^

D'ailleurs c'est moi ou c'est normal que les points d'un match perdus ne soient pas ajoutés ?

C'est bien ca en revanche pour un équipe qui fait match nulle je souhaite lui mettre 2 points et une équipe qui perd 1 point

Normalement avec cette formule ça devrait marcher :

=(D9*4)+(E9*2)+(F9*1)

Ca m'a l'air pas mal ! Je vais retester depuis 0 car j'ai l'impression qu'il me fait des doublons d'équipe dans le classement

nickel tout marche merci de ton aide