Enregistrer sur deux feuilles

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf1

XLDnaute Impliqué
Bonjour,

J'ai un USF avec Plusieurs Textbox, combobox. Est il possible d'avoir un code qui me permet d'enregistrer sur deux feuilles du même classeur mais sur des colonnes différente "feuille bon_reservation et feuille entrer.

Ci-joint mon fichier qui seras plus parlant.

Je vous remercie par avance et vous souhaite une bonne journée

Cordialement

Max
 

Pièces jointes

Trier par date Trier par votes
Re : Enregistrer sur deux feuilles

Re,

regarde ceci, à noter placer ainsi des codes sur le forum n'est pas très lisible, il est préférable d'exposer uniquement le problème dans un tout petit fichier avec juste les éléments qu'ils faut pour le démontrer(un usf, un textbox un combo), en procédant ainsi je jense que tu aurais eut ta réponse depuis longtemps... :
Code: 
Private Sub btnOK_Click()
Dim Ctrl As Control
    For Each Ctrl In Frame1.Controls
        If Ctrl.Object.Value = True Then
            L = Sheets("Entrer").Range("A65000").End(xlUp).Row + 1
            With Sheets("Entrer")
               .Cells(L, 2).Value = T3
               .Cells(L, 3).Value = cboRace.Value
               .Cells(L, 10).Value = cboCouleur.Value
               .Cells(L, 5).Value = T5
               .Cells(L, 4).Value = cboSexe.Value 'Sexe
               .Cells(L, 11).Value = T11
               .Cells(L, 12).Value = T12
               .Cells(L, 7).Value = T7
               .Cells(L, 6).Value = T6 'Taille
               .Cells(L, 21).Value = Ctrl.Caption & " " & T21.Value
               .Cells(L, 22).Value = T22
               .Cells(L, 23).Value = T23
               .Cells(L, 27).Value = T28
               .Cells(L, 1).Value = "N° " & LabelID
               .Cells(L, 24).Value = T24
               .Cells(L, 8).Value = T8 'Tatouage
               .Cells(L, 9).Value = T9 'Puce
               .Cells(L, 13).Value = T13 'N° lof Parents
               .Cells(L, 14).Value = Format(T14, "0.00 €") 'Prix
               .Cells(L, 15).Value = T15 'Date
               .Cells(L, 16).Value = Format(T16, "0.00 €") 'Acompte
               .Cells(L, 17).Value = T17 'Date
               .Cells(L, 18).Value = Format(T18, "0.00 €") 'Acompte
               .Cells(L, 19).Value = Format(T19, "0.00 €") 'Solde
               .Cells(L, 20).Value = cboReglement 'Reglement
               .Cells(L, 25).Value = T25 'Département
               .Cells(L, 26).Value = T26 & "@" & T27  'Email
               .Cells(L, 28).Value = T29 'Mobile
               .Cells(L, 29).Value = T30 'Fax
               .Cells(L, 30).Value = cboVisite 'Nbre visite
               .Cells(L, 31).Value = T31 'Date Modif
                 .Hyperlinks.Add .Cells(L, 26), Address:="mailto:" & "T26 &  T27" 'Email actif sur la feuille
            End With
            With Sheets("Bon_Reservation")
                .Range("B14").Value = T3 'Nom
                .Range("B15").Value = cboRace.Value 'Race
                .Range("B16").Value = cboCouleur.Value 'Couleur
                .Range("B17").Value = T5 'Date de naissance
                .Range("B18").Value = T11 'pere
                .Range("B19").Value = T12 'mere
                .Range("B20").Value = T7 'N° LOF
                .Range("B21").Value = cboPuce.Value 'Puce
                .Range("D21").Value = cboVaccine.Value 'Vaccine
                .Range("B3").Value = Ctrl.Caption & " " & T21.Value 'Nom propriétaire
                .Range("B4").Value = T22 'Adresse
                .Range("B5").Value = T23 'CP
                .Range("B6").Value = T24 'Ville
                .Range("B7").Value = T28 'Tel
                .Range("C23").Value = Format(T14, "0.00 €") 'Prix
                .Range("B27").Value = Format(T16, "0.00 €") 'Acompte
            End With
        End If
    Next Ctrl
End Sub
 
Vote positif 0 Vote négatif
Re : Enregistrer sur deux feuilles

re,

Je te remercie mais ou est le code que tu ma donne pour la combo !

Code: 
With ComboBox1
    If .ListIndex <> -1 Then
        If .Value = "1" Then
           'code alimentation feuille 1
        Else
           'code alimentation feuille 2
        End If
    End If
End With

@+
 
Vote positif 0 Vote négatif
Re : Enregistrer sur deux feuilles

Re,

relis le post où je le donnais, il faut l'adapter ainsi :
Code: 
With cboOnglet
    If .ListIndex <> -1 Then
        If .Value = "1" Then
            'Sheets ("Entrer") 'code alimentation feuille 1
        Else
            'Sheets ("Bon_Reservation") 'code alimentation feuille 2
        End If
    End If
End With
 
Vote positif 0 Vote négatif
Re : Enregistrer sur deux feuilles

Re,
La combobox me sert si je veut copier sur la feuille appeler "Bon_Reservation" ou sur une autre mais sa copie toujour sur la feuille "Entrer"

mais quand je mais le code dans l'événement click du bouton j'ai des messages d'erreur "End With sans With " aprés c'est" End If sans bloc IF"

@+

Max
 
Vote positif 0 Vote négatif
Re : Enregistrer sur deux feuilles

Re,

Code: 
With ComboBox1
    If .ListIndex <> -1 Then
        If .Value = "Entrer" Then
            With Sheets("Entrer")
                L = .Range("A65000").End(xlUp).Row + 1
               .Cells(L, 2).Value = T3
               .Cells(L, 3).Value = cboRace.Value
               .Cells(L, 10).Value = cboCouleur.Value
                'etc...
            End With
            ElseIf .Value = "Bon_Reservation" Then
                With Sheets("Bon_Reservation")
                    L = .Range("A65000").End(xlUp).Row + 1
                    .Cells(L, 2).Value = T3
                   .Cells(L, 3).Value = cboRace.Value
                   .Cells(L, 10).Value = cboCouleur.Value
                    'etc...
                End With
        Else
                MsgBox "erreur de page......."
        End If
    End If
End With
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Phil Du59
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
1 K
Phil Du59
Phil Du59
litelsousa
  • Question Question
Microsoft 365 Graphique avec valeur sur différentes feuilles
Réponses
3
Affichages
194
sousou
sousou
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
627
dadaze
D
T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
224
TooFatBoy
TooFatBoy
W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
132
Webperegrino
W
B
  • Question Question
XL 2016 tableau suivi chantiers
Réponses
2
Affichages
250
berto
B
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
692
Jaykerz
J
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
746
Elnono51
E
D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
385
dadaze
D
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
283
alexga78
A
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
308
PR.
P
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
456
TooFatBoy
TooFatBoy
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
2 K
AtTheOne
AtTheOne
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
782
Phil69970
Phil69970
F
  • Question Question
Power Query Power Query - Est-il possible d'inscrire des données d'un champ A provenant d'un enregistrement n sur un champ B d'un enregistrement n-1 ?
Réponses
11
Affichages
236
merinos-BernardEtang
merinos-BernardEtang
C
  • Question Question
XL 2016 Récapitulatif de plusieurs feuilles sur un tableau (en fonction de dates)
Réponses
11
Affichages
288
job75
job75
D
  • Question Question
XL 2019 Verrouiller des cellules avant la date du jour
Réponses
12
Affichages
587
TooFatBoy
TooFatBoy
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
207
sylvanu
sylvanu
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
228
sylvanu
sylvanu
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
339
patricko-13
P
Retour