XL 2019 Fichier Réservation

Richard 58 · 29 Avril 2020

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 · 29 Avril 2020

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 · 30 Avril 2020

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

XL 2019 Fichier Réservation

Richard 58

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Richard 58

XLDnaute Nouveau

Discussions similaires