Bonjour archer,
J'ai téléchargé ton nouveau fichier,
Mais je rencontre un problème:
Quand je clique sur "Crea" du "U-CreaModif," un bug se déclare à la ligne surlignée:
Private Sub Button1_Click()
For L = 2 To 12
If Controls("TextBox" & L).Value = "" And Controls("TextBox" & L).Tag = "O" Then
MsgBox F00.Range("J" & L + 1).Value, vbOKOnly + vbCritical, "Alerte"
' MsgBox "Vous n'avez pas rempli ce champ", vbOKOnly + vbCritical, "Alerte"
Controls("TextBox" & L).SetFocus
Exit Sub
End If
Next
Nlig = Sh.Range("B" & Rows.Count).End(xlUp).Row + 1
Sh.Cells(Nlig, C).Value = Val(TextBox1.Value)
CreateModif Nlig
Unload Me
End Sub
La MsgBox me dit: erreur d"éxécution '1004': erreur définie par l'application ou par l'objet l(pbjet
J'ai le même problème avec le fichier précédant, J'ai modifié ton projet pour l'affichage, pour l'adapter à l'esthétique que je voulais,
peut être ai-je touché quelque chose sans y faire attention, mais voilà, je ne sais pas quoi...!
Aurais-tu une idée....?
Merci pour ton travail et pour ton indulgence!