Enregistrer sur deux feuilles

[apdf1]

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

 

[apdf1]

Re : Enregistrer sur deux feuilles

Re,

Une fois il me dit message d'erreur "End With sans With " aprés c'est" End If sans bloc IF"
Et comment mettre le code que tu ma donnée

@+

 

[Pierrot93]

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... :

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

 

[apdf1]

Re : Enregistrer sur deux feuilles

re,

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

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

@+

 

[Pierrot93]

Re : Enregistrer sur deux feuilles

Re

bah.. il n'était pas dans le code que tu as déposé à 12h12 et qui te posait problème.....

 

[apdf1]

Re : Enregistrer sur deux feuilles

Re,

Si si dans le code "Private Sub btnOK_Click()" ou alors mal placer

 

[Pierrot93]

Re : Enregistrer sur deux feuilles

Re,

Aarf, partie en commentaire, donc pour moi ce n'est pas celle-ci qui pouvait renvoyer un message d'erreur....

 

[Pierrot93]

Re : Enregistrer sur deux feuilles

Re,

relis le post où je le donnais, il faut l'adapter ainsi :

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

 

[apdf1]

Re : Enregistrer sur deux feuilles

Re,

Oui mais ou le mettre et comment !

 

[Pierrot93]

Re : Enregistrer sur deux feuilles

Re,

bah... tu l'avais mis dans l'événement click de ton bouton.... après je sais pas, toujours pas compris la finalité et les critères déterminants....

 

[apdf1]

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

 

[Pierrot93]

Re : Enregistrer sur deux feuilles

Re,

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