Comment basculer d'une feuille a une autre en selectionnant des cellules
poussin25800
Messages postés
23
Date d'inscription
Statut
Membre
Dernière intervention
-
poussin25800 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
poussin25800 Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de faire un planning personnalisé pour l'hotel que je gère, je souhaite dans un premier temps que des que je selectionnne des cellules qui correspondent a une periode sur mon planning, cela me transfère directement sur mon fichier client afin de remplir les renseignements les concernant, j'ai déjà une ébauche de ce que je veux faire mais je galère pour tout relier.
merci par avance.
Je suis en train de faire un planning personnalisé pour l'hotel que je gère, je souhaite dans un premier temps que des que je selectionnne des cellules qui correspondent a une periode sur mon planning, cela me transfère directement sur mon fichier client afin de remplir les renseignements les concernant, j'ai déjà une ébauche de ce que je veux faire mais je galère pour tout relier.
merci par avance.
A voir également:
- Comment basculer d'une feuille a une autre en selectionnant des cellules
- Comment imprimer en a5 sur une feuille a4 - Guide
- Comment supprimer une feuille sur word - Guide
- Bruler une feuille de laurier - Guide
- Basculer clavier en azerty - Guide
- Verrouiller des cellules excel - Guide
15 réponses
Bonjour poussin
Tu penses qu'on va deviner comment est constitué ton fichier ?
Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici
Cdlmnt
Via
Tu penses qu'on va deviner comment est constitué ton fichier ?
Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici
Cdlmnt
Via
C'est bon j'ai le fichier mais les tableaux sont vides
Fournis moi au moins un exemple
Qu'est qui s’inscrit dans les cellules de planning lors d'une réservation ? quel est le lien avec la fiche client ?
Fournis moi au moins un exemple
Qu'est qui s’inscrit dans les cellules de planning lors d'une réservation ? quel est le lien avec la fiche client ?
Bon j'ai travaillé sur une macro pour remplir en une seule fois fiche client et planning
Il me reste pour relier aux autres feuilles à pouvoir y accéder donc il me faut le mot de passe pour les déprotéger
Il me reste pour relier aux autres feuilles à pouvoir y accéder donc il me faut le mot de passe pour les déprotéger
Voilà
Sur la feuille Planning le bouton Enregistrer ouvre le formulaire à remplir, ceci fait la fiche client est complétée et le n° du client mis sur la ligne de la chambre aux bonnes dates dans Planning qu'une MFC colore en vert
Pour éditer la feuille facture il suffit d'indiquer le n° client à côté en haut à droite, les formules font le reste pour remplir la facture
La feuille Envelope est liée par formule à la feuille facture et comporte donc les indications correspondantes, là encore la chambre se colore sur le plan par MFC
Mais par pitié, bannissez ces p.... de cellules fusionnées qui ne servent à rien , on obtient la même chose en agrandissant la taille des lignes ou des colonnes, mais qui sont une plaie pour els formules et les macros !
https://mon-partage.fr/f/mi7FDUut/
A toi de me dire si tout convient ou s'il y a lieu d'apporter des modifs ou améliorations
Sur la feuille Planning le bouton Enregistrer ouvre le formulaire à remplir, ceci fait la fiche client est complétée et le n° du client mis sur la ligne de la chambre aux bonnes dates dans Planning qu'une MFC colore en vert
Pour éditer la feuille facture il suffit d'indiquer le n° client à côté en haut à droite, les formules font le reste pour remplir la facture
La feuille Envelope est liée par formule à la feuille facture et comporte donc les indications correspondantes, là encore la chambre se colore sur le plan par MFC
Mais par pitié, bannissez ces p.... de cellules fusionnées qui ne servent à rien , on obtient la même chose en agrandissant la taille des lignes ou des colonnes, mais qui sont une plaie pour els formules et les macros !
https://mon-partage.fr/f/mi7FDUut/
A toi de me dire si tout convient ou s'il y a lieu d'apporter des modifs ou améliorations
Bonjour franchement chapeau, tu gères. Voici une série de 3 photos qui montre mes soucis pour utiliser le fichier, après oui je vais arrêter les fusions de cellule et merci pour le temps passer sur mon fichier c'est super sympa.
https://mon-partage.fr/f/F6WYcUeZ/
https://mon-partage.fr/f/QrB0i2JH/
https://mon-partage.fr/f/AwBXowDY/
Merci par avance.
https://mon-partage.fr/f/F6WYcUeZ/
https://mon-partage.fr/f/QrB0i2JH/
https://mon-partage.fr/f/AwBXowDY/
Merci par avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
C'est que tu n'as pas le contrôle Calendrier
Essaie de faire ALT+F11 pour ouvrir l'éditeur
Outils
Contrôles supplémentaires
et choisir le Calendrier dans la liste
Si ça ne fonctionne pas voilà une version sans calendrier
https://mon-partage.fr/f/x6rsIoNp/
Cdlmnt
Via
C'est que tu n'as pas le contrôle Calendrier
Essaie de faire ALT+F11 pour ouvrir l'éditeur
Outils
Contrôles supplémentaires
et choisir le Calendrier dans la liste
Si ça ne fonctionne pas voilà une version sans calendrier
https://mon-partage.fr/f/x6rsIoNp/
Cdlmnt
Via
Je ne comprend pas ça fonctionne bien chez moi
Tu as ouvert le 2eme fichier que je t'ai envoyé ?
Sinon renvoie moi le fichier au lieu d'une image
Tu as ouvert le 2eme fichier que je t'ai envoyé ?
Sinon renvoie moi le fichier au lieu d'une image
Private Sub CommandButton1_Click()
Dim Ligne As Long, ligne2 As Long
With Sheets("FICHE CLIENT")
Ligne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
.Range("A" & Ligne) = .Range("A" & Ligne - 1) + 1
If Me.O1 = True Then .Range("B" & Ligne) = "Client" Else .Range("B" & Ligne) = "Société"
If Me.O3 = True Then .Range("E" & Ligne) = "Civil" Else .Range("E" & Ligne) = "Militaire"
.Range("C" & Ligne) = Me.nom
.Range("D" & Ligne) = Me.prenom
.Range("F" & Ligne) = Me.grade
.Range("G" & Ligne) = Val(Me.nombre)
.Range("H" & Ligne) = Me.chambre
.Range("I" & Ligne) = CDate(Me.jA & "/" & Me.mA & "/" & Me.aA)
.Range("J" & Ligne) = CDate(Me.jD & "/" & Me.mD & "/" & Me.aD)
.Range("K" & Ligne) = Me.tel
.Range("L" & Ligne) = Me.paiement
.Range("M" & Ligne) = Me.sejour
If Me.petit = True Then .Range("N" & Ligne) = "OUI" Else .Range("N" & Ligne) = "NON"
If Me.dej = True Then .Range("O" & Ligne) = "OUI" Else .Range("O" & Ligne) = "NON"
.Range("P" & Ligne) = Me.reserv
.Range("Q" & Ligne) = Me.autres
ligne2 = Val(.Range("H" & Ligne)) + 7
For n = .Range("I" & Ligne) To .Range("J" & Ligne)
col = n - CDate("1/1/" & Year(n)) + 4
Sheets("PLANNING").Cells(ligne2, col) = .Range("A" & Ligne)
Next
End With
Unload Me
End Sub
For n = .Range("I" & Ligne) To .Range("J" & Ligne)
A cette ligne le "n" est colorier en bleu sur la macro et du coup ça beugue.
Dim Ligne As Long, ligne2 As Long
With Sheets("FICHE CLIENT")
Ligne = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
.Range("A" & Ligne) = .Range("A" & Ligne - 1) + 1
If Me.O1 = True Then .Range("B" & Ligne) = "Client" Else .Range("B" & Ligne) = "Société"
If Me.O3 = True Then .Range("E" & Ligne) = "Civil" Else .Range("E" & Ligne) = "Militaire"
.Range("C" & Ligne) = Me.nom
.Range("D" & Ligne) = Me.prenom
.Range("F" & Ligne) = Me.grade
.Range("G" & Ligne) = Val(Me.nombre)
.Range("H" & Ligne) = Me.chambre
.Range("I" & Ligne) = CDate(Me.jA & "/" & Me.mA & "/" & Me.aA)
.Range("J" & Ligne) = CDate(Me.jD & "/" & Me.mD & "/" & Me.aD)
.Range("K" & Ligne) = Me.tel
.Range("L" & Ligne) = Me.paiement
.Range("M" & Ligne) = Me.sejour
If Me.petit = True Then .Range("N" & Ligne) = "OUI" Else .Range("N" & Ligne) = "NON"
If Me.dej = True Then .Range("O" & Ligne) = "OUI" Else .Range("O" & Ligne) = "NON"
.Range("P" & Ligne) = Me.reserv
.Range("Q" & Ligne) = Me.autres
ligne2 = Val(.Range("H" & Ligne)) + 7
For n = .Range("I" & Ligne) To .Range("J" & Ligne)
col = n - CDate("1/1/" & Year(n)) + 4
Sheets("PLANNING").Cells(ligne2, col) = .Range("A" & Ligne)
Next
End With
Unload Me
End Sub
For n = .Range("I" & Ligne) To .Range("J" & Ligne)
A cette ligne le "n" est colorier en bleu sur la macro et du coup ça beugue.
?????
renvoie moi le fichier en me disant exactement ce que tu as entré comme données dans le formulaire en dates car appartement c’est là que ça coince
renvoie moi le fichier en me disant exactement ce que tu as entré comme données dans le formulaire en dates car appartement c’est là que ça coince
Non tout est correct si tu ne rentres que des nombres pour les dates et pour la chambre
Fonctionnement impeccable chez moi
Fonctionnement impeccable chez moi
Bonjour merci oui en espérant que cela fonctionne