Finition tableau formulaire
SUPER !!
Merci beaucoup j'ai fais ca et ca fonctionne je t'envois le tableau à mon sens terminé grâce à tes conseils pour avoir ton avis.
Kahina.
Bon j'ai crié victoire trop tôt peux tu me dires s'il te plait pourquoi une erreur 381 s'affiche lorsque j'ajoute la première ligne ?
Merci.
Kahina.
Lorsqu'une erreur d'exécution survient, au débogage une ligne se surligne en jaune...
Laquelle ?
Sub Bouton6_Cliquer()
'
' Bouton6_Cliquer Macro
UserForm1.Show (Celle-ci)
et quand je fais F8 ca me renvoi sur ca :
Private Sub UserForm_initialize() (celle-ci en jaune)
TextBox1 = Date
Set fa = Sheets("Arrivées")
ComboBox1.List = fa.Range("B2:B" & fa.Range("B" & Rows.Count).End(xlUp).Row).Value
End Sub
C'est que tu n'as pas suivi mes préconisations : supprimer la Combo et fournir le numéro automatiquement (entre autres).
Cette ligne correspondait à des numéros préinscrits. En les supprimant la Combo ne peut plus être alimentée...
Ok je viens de modifier j'ai remplacé la combo par la textbox7 et maintenant l erreur " Erreur d'exécution 1004" la méthode Range de l'objet Worksheet à échoué.
Erreur :
Private Sub TextBox7_Change()
TextBox7 = fa.Range("B" & ln) (en jaune)
TextBox1 = fa.Range("A" & ln)
TextBox2 = fa.Range("C" & ln)
TextBox3 = fa.Range("D" & ln)
TextBox4 = fa.Range("E" & ln)
TextBox5 = fa.Range("F" & ln)
TextBox6 = fa.Range("G" & ln)
Supprime cette procédure, elle est incompatible avec ta saisie !
Je l'ai fait mais ca me crée une erreur sur autre chose.
Je te le transmets si tu peux jeter un coup d'œil.
Sur cette version je n'ai pas supprimé la procédure pour que tu puisses voir ce que ca fait une fois celle-ci supprimée.
Merci.
C'est bon ca fonctionne miracle.
Merci pour toute à la prochaine lol.
Kahina.
Bon nouveau Hic j'en vois pas le bout, lorsque je clic sans faire exprès entre de bouton dans le userform2 ce me signale "erreur de compilation " instruction incorrect dans une procédure :
Private Sub Frame1_Click() (ca en jaune)
Option Explicit
'Fonction personnalisée USERPROFILE
Public Function CheminProfilUtilisateur()
CheminProfilUtilisateur = Environ("userprofile")
Application.Volatile
End Function
D'où sors-tu ce code ?
Je dois le supprimer celui-ci ?
je l'ai supprimé et ca à l'aire d'avoir enlevé le problème. lol