Erreur de chargement de la DLL

Bonjour à tous,

Grâce au forum j'ai pu apprendre plein de chose sur VBA, mais la je suis bloqué .

J'ai créée un fichier qui me sert a gérer des stocks et éditer un ticket de caisse. Le problème c'est que le fichier fonctionné bien avant que je fasse quelque modif sur mes macros. Pourtant celle ci fonctionnait très bien avant que j'enregistre mon fichier et que je le ferme.

Maintenant dés que je l'ouvre j'ai un message d'erreur qui s'affiche :

"Erreur de chargement de la DLL"

et impossible d'actionner une macro.

J'ai gardé une sauvegarde avant les modif et celle ci fonctionne trés bien.

Voici le code en question :

Sub Enregistrer_Ticket_1()
Dim a, b, c As Integer

If Sheets("Feuille de joueur 1").Range("B" & a + b).Value = "" Then Exit Sub

Effacer

'Lancemement Ticket si Forfait
a = 4
b = Ticket_E1.NB_Joueur_1.Value
c = 2

If Sheets("Feuille de joueur 1").Range("I" & a + b).Value <> "i/ Forfait Mariée 100 Billes Partagé" Then
    Sheets("Ticket").Range("A8").Value = Sheets("Feuille de joueur 1").Range("I" & a + b).Value
    Sheets("Ticket").Range("E8").Value = "1"

' Selection Forfait + Billes Supp

    If Sheets("Feuille de joueur 1").Range("O" & a + b).Value <> "" Then
        If Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A2").Value Then 'Fofait Adulte
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
        Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A7").Value Then 'Forfait Accées Terrain
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
                Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A4").Value Then 'Fofait 100 Billes Enfants
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A20").Value
                Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A21").Value Then 'Forfait Mariée 100 Billes Partagé
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
                Sheets("Ticket").Range("E9").Value = "0"
        End If

    End If

            If Sheets("Feuille de joueur 1").Range("I5").Value = "i/ Forfait Mariée 100 Billes Partagé" Then
                Sheets("Ticket").Range("A17").Value = "Partage Marié(e)"
                Sheets("Ticket").Range("F17").Value = Sheets("Feuille de joueur 1").Range("AK" & a + b).Value
            End If

' Combinaison + Boison

Save_Boissons_Auto_1

    If Sheets("Feuille de joueur 1").Range("U" & a + b).Value <> "" Then ' Boisson 1€
    Sheets("Ticket").Range("A11").Value = Sheets("Bases").Range("A8").Value
    Sheets("Ticket").Range("E11").Value = Sheets("Feuille de joueur 1").Range("U" & a + b).Value
    End If
    If Sheets("Feuille de joueur 1").Range("V" & a + b).Value <> "" Then ' Boisson 1,5€
    Sheets("Ticket").Range("A12").Value = Sheets("Bases").Range("A9").Value
    Sheets("Ticket").Range("E12").Value = Sheets("Feuille de joueur 1").Range("V" & a + b).Value
    End If
    If Sheets("Feuille de joueur 1").Range("W" & a + b).Value <> "" Then ' Boisson 2€
    Sheets("Ticket").Range("A13").Value = Sheets("Bases").Range("A10").Value
    Sheets("Ticket").Range("E13").Value = Sheets("Feuille de joueur 1").Range("W" & a + b).Value
    End If

        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = "i/ Forfait Mariée 100 Billes Partagé" Then
        Sheets("Ticket").Range("A8").Value = Sheets("Feuille de joueur 1").Range("I" & a + b).Value
    Sheets("Ticket").Range("E8").Value = "1"

            If Sheets("Feuille de joueur 1").Range("O" & a + b).Value <> "" Then
                  If Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A21").Value Then 'Fofait Partage Marié
                     Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A22").Value
                     Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
                  End If
            End If
                If Sheets("Feuille de joueur 1").Range("H" & a + b).Value = "OUI" Then ' Combinaison Mariée
                     Sheets("Ticket").Range("A10").Value = Sheets("Bases").Range("A23").Value
                     Sheets("Ticket").Range("E10").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("T" & a + b).Value = "100" Then ' 100 Billes Offerte Mariée
                   Sheets("Ticket").Range("A14").Value = Sheets("Bases").Range("A12").Value
                   Sheets("Ticket").Range("E14").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("T" & a + b).Value = "200" Then ' 200 Billes Offerte Mariée
                   Sheets("Ticket").Range("A14").Value = Sheets("Bases").Range("A13").Value
                   Sheets("Ticket").Range("E14").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("U" & a + b).Value <> "" Then ' Boisson 1€
                    Sheets("Ticket").Range("A11").Value = Sheets("Bases").Range("A24").Value
                    Sheets("Ticket").Range("E11").Value = Sheets("Feuille de joueur 1").Range("U" & a + b).Value
                End If
                If Sheets("Feuille de joueur 1").Range("V" & a + b).Value <> "" Then ' Boisson 1,5€
                    Sheets("Ticket").Range("A12").Value = Sheets("Bases").Range("A25").Value
                    Sheets("Ticket").Range("E12").Value = Sheets("Feuille de joueur 1").Range("V" & a + b).Value
                End If
                If Sheets("Feuille de joueur 1").Range("W" & a + b).Value <> "" Then ' Boisson 2€
                    Sheets("Ticket").Range("A13").Value = Sheets("Bases").Range("A26").Value
                    Sheets("Ticket").Range("E13").Value = Sheets("Feuille de joueur 1").Range("W" & a + b).Value
                End If
        End If

             Sheets("Ticket").Range("C18").Value = Sheets("Feuille de joueur 1").Range("AJ" & a + b).Value 'Remise en %
     Sheets("Ticket").Range("C19").Value = Sheets("Feuille de joueur 1").Range("AI" & a + b).Value

Gestion_Stock_1_Boisson_1i
Validation_Paiement_1
Sheets("Ticket").Select

End Sub

Sub Gestion_Stock_1_Boisson_1()
Dim a, b, Lig As Integer

a = 4
b = Ticket_E1.NB_Joueur_1.Value

Sheets("Feuille de joueur 1").Select

   If Range("X" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("B" & Lig))
             Lig = Lig + 1
        Loop

        Range("B" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("X" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("Y" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("C" & Lig))
             Lig = Lig + 1
        Loop

        Range("C" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("Y" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("Z" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("D" & Lig))
             Lig = Lig + 1
        Loop

        Range("D" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("Z" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AA" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("E" & Lig))
             Lig = Lig + 1
        Loop

        Range("E" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AA" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AB" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("F" & Lig))
             Lig = Lig + 1
        Loop

        Range("F" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AB" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AC" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("G" & Lig))
             Lig = Lig + 1
        Loop

        Range("G" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AC" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AD" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("H" & Lig))
             Lig = Lig + 1
        Loop

        Range("H" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AD" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AE" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("I" & Lig))
             Lig = Lig + 1
        Loop

        Range("I" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AE" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AF" & a + b).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("J" & Lig))
             Lig = Lig + 1
        Loop

        Range("J" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AF" & a + b).Value
    End If

    Sheets("Feuille de joueur 1").Select

End Sub
Sub Validation_Paiement_1()
'
Dim a, b As Integer
' Validation_Paiement_1 Macro
'
a = 4
b = Ticket_E1.NB_Joueur_1.Value
'
    Range("B" & a + b, "AG" & a + b).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("AG1").Select
End Sub

La modif que j'ai fait c'est de rajouter la fonction "Dim xxx as interger"

Es ce que cela est génant d'avoir les même lettre dans plusieurs macro différente en sachant qu'elle fonctionne en même temps ?

Je vous remercie de votre aide

Cordialement.

Vincent

Bonjour

Vincent130885 a écrit :

La modif que j'ai fait c'est de rajouter la fonction "Dim xxx as interger"

Tu n'as pas ajouter une fonction mais voulu déclarer une variable.

Et tu as commis une erreur en ajoutant un "r" à "integer"

Corrige et reessaie.

Bye !

Bonjour,

je pense plutôt que c'est dans la question qu'il nous pose que l'intéressé a mis "interger" mais pas dans le code qu'il montre

et il faudrait savoir sur quelle ligne s’arrête le code ?

Hello à GMB

P.

Bonjour,

cette erreur arrive souvent après un changement de version,

avez-vous changer récemment la version de voter excel ?

Merci a tous d'essayer de m'aider

gmb a écrit :

Bonjour

Vincent130885 a écrit :

La modif que j'ai fait c'est de rajouter la fonction "Dim xxx as interger"

Tu n'as pas ajouter une fonction mais voulu déclarer une variable.

Et tu as commis une erreur en ajoutant un "r" à "integer"

Corrige et reessaie.

Bye !

Non pas d'erreur dans la macro.

patrick1957 a écrit :

Bonjour,

je pense plutôt que c'est dans la question qu'il nous pose que l'intéressé a mis "interger" mais pas dans le code qu'il montre

et il faudrait savoir sur quelle ligne s’arrête le code ?

Hello à GMB

P.

La macro ne ce lance pas quand je clique sur mon bouton, j'ai le message ci dessus qui apparaît.

minanse a écrit :

Bonjour,

cette erreur arrive souvent après un changement de version,

avez-vous changer récemment la version de voter excel ?

Non, car comme je l'ai dis la macro fonctionné bien avant la modif .

il faut regarder dans les dll,

alt+f11 ensuite outil/référence

regarde si vous avez pas un dll manquant

Dans ton code, si tu lances le code "Enregistrer_Ticket_1"

Dim a, b, c As Integer

If Sheets("Feuille de joueur 1").Range("B" & a + b).Value = "" Then Exit Sub

a et b n'ont pas encore de valeur.... donc le range "B" & a+b ne fonctionne pas

"Effacer" est une sub ? je ne la vois pas

"Save_Boissons_Auto_1" est une sub ? idem

P.

Oui

patrick1957 a écrit :

Dans ton code, si tu lances le code "Enregistrer_Ticket_1"

Dim a, b, c As Integer

If Sheets("Feuille de joueur 1").Range("B" & a + b).Value = "" Then Exit Sub

a et b n'ont pas encore de valeur.... donc le range "B" & a+b ne fonctionne pas

"Effacer" est une sub ? je ne la vois pas

"Save_Boissons_Auto_1" est une sub ? idem

P.

Ha oui oups je viens de remonter les 3 lignes pour leur donner leur valeur.

Merci beaucoup mais sans résultat pour ce foutu de DLL.

Sinon oui ce sont des Sub les voici :

Option Explicit

Sub Effacer()
  Dim xdatejour As Date
  Dim xtransaction As Integer, xdlgn As Integer, i As Integer, derl As Integer
'  Dim xtableau(1 To 10, 1 To 1) As Single, xtl As Single
'  Dim xreglt As String
'  With Sheets("Prog")
'    xdatejour = Cells(2, 2).Value
'    xtransaction = Cells(4, 10).Value
'    xtableau(1, 1) = Cells(9, 8).Value
'    xtableau(2, 1) = Cells(11, 8).Value
'    xtableau(3, 1) = Cells(13, 8).Value
'    xtableau(4, 1) = Cells(15, 8).Value
'    xtableau(5, 1) = Cells(17, 8).Value
'    xtableau(6, 1) = Cells(19, 8).Value
'    xtableau(7, 1) = Cells(21, 8).Value
'    xtableau(8, 1) = Cells(23, 8).Value
'    xtableau(9, 1) = Cells(25, 8).Value
'    xtableau(10, 1) = Cells(27, 8).Value
'    xtl = Cells(15, 17).Value
'    xreglt = Cells(15, 4).Value
'  End With
'  With Sheets("Journal du jour")
'    xdlgn = .Range("B" & Rows.Count).End(xlUp).Row + 1
'    .Range("A" & xdlgn).Value = xdatejour
'    .Range("B" & xdlgn).Value = xtransaction
'    .Range("C" & xdlgn).Value = xtableau(1, 1)
'    .Range("D" & xdlgn).Value = xtableau(2, 1)
'   .Range("E" & xdlgn).Value = xtableau(3, 1)
'    .Range("F" & xdlgn).Value = xtableau(4, 1)
'    .Range("G" & xdlgn).Value = xtableau(5, 1)
'    .Range("H" & xdlgn).Value = xtableau(6, 1)
'    .Range("I" & xdlgn).Value = xtableau(7, 1)
'    .Range("J" & xdlgn).Value = xtableau(8, 1)
'    .Range("K" & xdlgn).Value = xtableau(9, 1)
'    .Range("L" & xdlgn).Value = xtableau(10, 1)
'    .Range("M" & xdlgn).Value = xtl
'    .Range("Q" & xdlgn).Value = xreglt
'  End With
  Application.EnableEvents = False
  With Sheets("Ticket")
   derl = .Columns(5).Find("TOTAL", LookIn:=xlValues).Row - 1
If derl > 7 Then
.Range("A8:A" & derl).ClearContents
.Range("E8:E" & derl).ClearContents
End If
  End With
  Application.EnableEvents = True

  MsgBox "Mise à jour Ticket", vbOKOnly + vbInformation, "mDF XLpages.com"
End Sub

Sub Save_Boissons_Auto_1()
Dim a, b As Integer

a = 4
b = Ticket_E1.NB_Joueur_1.Value

    Range("U" & a + b).Value = Range("X" & a + b).Value
    If Range("Y" & a + b) + Range("Z" & a + b) + Range("AA" & a + b) + Range("AB" & a + b) + Range("AC" & a + b) + Range("AD" & a + b) <> 0 Then
    Range("V" & a + b).Value = Range("Y" & a + b) + Range("Z" & a + b) + Range("AA" & a + b) + Range("AB" & a + b) + Range("AC" & a + b) + Range("AD" & a + b)
    End If
    If Range("AE" & a + b) + Range("AF" & a + b) <> 0 Then
    Range("W" & a + b).Value = Range("AE" & a + b) + Range("AF" & a + b)
    End If

End Sub

Bonjour à tous,

Merci de m'avoir aidé c'est vraiment sympas . Mais j'ai réussi a trouver quelque chose :

Voici le nouveau code :

Sub Enregistrer_Ticket_1()
Dim a, b, c As Integer

a = 4
b = Ticket_E1.NB_Joueur_1.Value
c = 2

If Sheets("Feuille de joueur 1").Range("B" & a + b).Value = "" Then Exit Sub

Effacer

'Lancemement Ticket si Forfait

If Sheets("Feuille de joueur 1").Range("I" & a + b).Value <> "i/ Forfait Mariée 100 Billes Partagé" Then
    Sheets("Ticket").Range("A8").Value = Sheets("Feuille de joueur 1").Range("I" & a + b).Value
    Sheets("Ticket").Range("E8").Value = "1"

' Selection Forfait + Billes Supp

    If Sheets("Feuille de joueur 1").Range("O" & a + b).Value <> "" Then
        If Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A2").Value Then 'Fofait Adulte
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
        Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A7").Value Then 'Forfait Accées Terrain
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
                Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A4").Value Then 'Fofait 100 Billes Enfants
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A20").Value
                Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A21").Value Then 'Forfait Mariée 100 Billes Partagé
        Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A3").Value
                Sheets("Ticket").Range("E9").Value = "0"
        End If

    End If

            If Sheets("Feuille de joueur 1").Range("I5").Value = "i/ Forfait Mariée 100 Billes Partagé" Then
                Sheets("Ticket").Range("A17").Value = "Partage Marié(e)"
                Sheets("Ticket").Range("F17").Value = Sheets("Feuille de joueur 1").Range("AK" & a + b).Value
            End If

' Combinaison + Boison

Save_boissons_auto_1

    If Sheets("Feuille de joueur 1").Range("U" & a + b).Value <> "" Then ' Boisson 1€
    Sheets("Ticket").Range("A11").Value = Sheets("Bases").Range("A8").Value
    Sheets("Ticket").Range("E11").Value = Sheets("Feuille de joueur 1").Range("U" & a + b).Value
    End If
    If Sheets("Feuille de joueur 1").Range("V" & a + b).Value <> "" Then ' Boisson 1,5€
    Sheets("Ticket").Range("A12").Value = Sheets("Bases").Range("A9").Value
    Sheets("Ticket").Range("E12").Value = Sheets("Feuille de joueur 1").Range("V" & a + b).Value
    End If
    If Sheets("Feuille de joueur 1").Range("W" & a + b).Value <> "" Then ' Boisson 2€
    Sheets("Ticket").Range("A13").Value = Sheets("Bases").Range("A10").Value
    Sheets("Ticket").Range("E13").Value = Sheets("Feuille de joueur 1").Range("W" & a + b).Value
    End If

        ElseIf Sheets("Feuille de joueur 1").Range("I" & a + b).Value = "i/ Forfait Mariée 100 Billes Partagé" Then
        Sheets("Ticket").Range("A8").Value = Sheets("Feuille de joueur 1").Range("I" & a + b).Value
    Sheets("Ticket").Range("E8").Value = "1"

            If Sheets("Feuille de joueur 1").Range("O" & a + b).Value <> "" Then
                  If Sheets("Feuille de joueur 1").Range("I" & a + b).Value = Sheets("Bases").Range("A21").Value Then 'Fofait Partage Marié
                     Sheets("Ticket").Range("A9").Value = Sheets("Bases").Range("A22").Value
                     Sheets("Ticket").Range("E9").Value = Sheets("Database Feuille 1").Range("G" & c + b).Value
                  End If
            End If
                If Sheets("Feuille de joueur 1").Range("H" & a + b).Value = "OUI" Then ' Combinaison Mariée
                     Sheets("Ticket").Range("A10").Value = Sheets("Bases").Range("A23").Value
                     Sheets("Ticket").Range("E10").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("T" & a + b).Value = "100" Then ' 100 Billes Offerte Mariée
                   Sheets("Ticket").Range("A14").Value = Sheets("Bases").Range("A12").Value
                   Sheets("Ticket").Range("E14").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("T" & a + b).Value = "200" Then ' 200 Billes Offerte Mariée
                   Sheets("Ticket").Range("A14").Value = Sheets("Bases").Range("A13").Value
                   Sheets("Ticket").Range("E14").Value = "1"
                End If
                If Sheets("Feuille de joueur 1").Range("U" & a + b).Value <> "" Then ' Boisson 1€
                    Sheets("Ticket").Range("A11").Value = Sheets("Bases").Range("A24").Value
                    Sheets("Ticket").Range("E11").Value = Sheets("Feuille de joueur 1").Range("U" & a + b).Value
                End If
                If Sheets("Feuille de joueur 1").Range("V" & a + b).Value <> "" Then ' Boisson 1,5€
                    Sheets("Ticket").Range("A12").Value = Sheets("Bases").Range("A25").Value
                    Sheets("Ticket").Range("E12").Value = Sheets("Feuille de joueur 1").Range("V" & a + b).Value
                End If
                If Sheets("Feuille de joueur 1").Range("W" & a + b).Value <> "" Then ' Boisson 2€
                    Sheets("Ticket").Range("A13").Value = Sheets("Bases").Range("A26").Value
                    Sheets("Ticket").Range("E13").Value = Sheets("Feuille de joueur 1").Range("W" & a + b).Value
                End If
        End If

             Sheets("Ticket").Range("C18").Value = Sheets("Feuille de joueur 1").Range("AJ" & a + b).Value 'Remise en %
     Sheets("Ticket").Range("C19").Value = Sheets("Feuille de joueur 1").Range("AI" & a + b).Value

Gestion_Stock_1_Boisson_1
Validation_Paiement_1
Sheets("Ticket").Select

End Sub

Sub Gestion_Stock_1_Boisson_1()
Dim d, e, Lig As Integer

d = 4
e = Ticket_E1.NB_Joueur_1.Value

Sheets("Feuille de joueur 1").Select

   If Range("X" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("B" & Lig))
             Lig = Lig + 1
        Loop

        Range("B" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("X" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("Y" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("C" & Lig))
             Lig = Lig + 1
        Loop

        Range("C" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("Y" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("Z" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("D" & Lig))
             Lig = Lig + 1
        Loop

        Range("D" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("Z" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AA" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("E" & Lig))
             Lig = Lig + 1
        Loop

        Range("E" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AA" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AB" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("F" & Lig))
             Lig = Lig + 1
        Loop

        Range("F" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AB" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AC" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("G" & Lig))
             Lig = Lig + 1
        Loop

        Range("G" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AC" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AD" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("H" & Lig))
             Lig = Lig + 1
        Loop

        Range("H" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AD" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AE" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("I" & Lig))
             Lig = Lig + 1
        Loop

        Range("I" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AE" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

    If Range("AF" & d + e).Value <> "" Then
        Sheets("Gestion Boisson").Activate
        Lig = 4
        Do While Not IsEmpty(Range("J" & Lig))
             Lig = Lig + 1
        Loop

        Range("J" & Lig).Value = "-" & Sheets("Feuille de joueur 1").Range("AF" & d + e).Value
    End If

    Sheets("Feuille de joueur 1").Select

End Sub
Sub Validation_Paiement_1()
'
Dim f, g As Integer
' Validation_Paiement_1 Macro
'
f = 4
g = Ticket_E1.NB_Joueur_1.Value
'
    Range("B" & f + g, "AG" & f + g).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("AG1").Select
End Sub

J'ai modifié le problème ci dessous :

patrick1957 a écrit :

Dans ton code, si tu lances le code "Enregistrer_Ticket_1"

Dim a, b, c As Integer

If Sheets("Feuille de joueur 1").Range("B" & a + b).Value = "" Then Exit Sub

a et b n'ont pas encore de valeur.... donc le range "B" & a+b ne fonctionne pas

"Effacer" est une sub ? je ne la vois pas

"Save_Boissons_Auto_1" est une sub ? idem

P.

Mais j'ai aussi changé les lettre pour ne pas voir de doublon et cela fonctionne

Merci à vous tous