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
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