comment basculer d'une feuille a une autre en selectionnant des cellules Fermé

Question

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.

via55 · Answer

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

via55 · Answer

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 ?

via55 · Answer

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

via55 · Answer

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

via55 · Answer

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

via55 · Answer

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

via55 · Answer

Je ne sais pas il fonctionne parfaitement chez moi !!!

via55 · Answer

Re,

Essaie cette version
https://mon-partage.fr/f/bsqf8FNb/

via55 · Answer

Non j'ai modifié la macro
Essaie d'enregistrer une réservation

via55 · Answer

Me suis trompé de fichier, voilà le bon
https://mon-partage.fr/f/7dy5nB3U/

via55 · Answer

Essaie avec ce fichier ci
https://mon-partage.fr/f/6kprCCsI/

poussin25800 · Answer

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.

via55 · Answer

?????
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

via55 · Answer

Non tout est correct si tu ne rentres que des nombres pour les dates et pour la chambre
 Fonctionnement impeccable chez moi

via55 · Answer

Je ne comprends pas
Et pas moyen de savoir puisque je n'arrive pas à reproduire le bug chez moi !
Essaie cette nouvelle version
https://mon-partage.fr/f/W5exf0zk/

Comment basculer d'une feuille a une autre en selectionnant des cellules

15 réponses

Discussions similaires