XL 2019 Fichier Réservation

[Richard 58]

Bonjour à tous,

J'essaie de faire une petite application de réservation d'installation à la semaine voir à l'année mais des erreurs se glissent dans ma programmation. J'ai besoin de votre aide.

Je m’inspire d'une appli que j'ai téléchargé. (fichier de départ)

Je met en pièce jointe mon fichier de base avec lequel j'essaie de faire le mien. (merci à celui qui l'a créé)

Pouvez m'aider à faire fonctionner mon fichier intitulé essai réservation ?

Ah, j'oubliais, je suis débutant en code VBA et c'est ma première création de fichier. J'ai déjà créer des formulaire mais beaucoup plus simple

Merci

Fichiers attachés

 

[sylvanu]

Bonjour Richard,
Vous pourriez dire où ça boggue.

Déjà, j'ai vu :
Dans ComboBox2_AfterUpdate() NomSalle est vide, non initialisé.
Dans Sub validation_Click() Sheets(lafeuille).Select feuille vaut "ASPTT Dojo René Recru", feuille qui n'existe pas.

faites du pas à pas, ça aide.

 

[Richard 58]

Bonjour,
Voici le code pour ma Combobox2 que j'ai modifié

Private Sub ComboBox2_AfterUpdate()
    Dim NomSalle As String
    NomSalle = ComboBox2
 
    Sheets("Modele").Copy after:=Sheets("Modele")
    Sheets("Modele (2)").Name = NomSalle
 
    If Sheets("listes").Range("A2").Value = "" Then
        Sheets("listes").Range("A2").Value = NomSalle
        Exit Sub
    End If
End Sub

Maintenant, je travaille sur le bouton commande valide