XL 2019 Fichier Réservation

Richard 58

XLDnaute Nouveau
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
Fichiers attachés
 

Pièces jointes

  • Essai réservation.xlsm
    61 KB · Affichages: 14
  • Fichier de départ.xlsm
    154.3 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Nouveau
Bonjour,
Voici le code pour ma Combobox2 que j'ai modifié
Code:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
294 444
Messages
1 938 544
Membres
188 916
dernier inscrit
mhedi69