Comment basculer d'une feuille a une autre en selectionnant des cellules
poussin25800
Messages postés
23
Statut
Membre
-
poussin25800 Messages postés 23 Statut Membre -
poussin25800 Messages postés 23 Statut Membre -
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
- Excel protéger des cellules dans une feuille - Guide
- Comment imprimer une feuille excel - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Excel additionner des cellules - Guide
15 réponses
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
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
Bonjour merci oui en espérant que cela fonctionne