Enregistrement sur 2 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,

Comment peut on enregistrer sur 2 feuilles en même temps dans le même classeur.

Voici mon code

Code: 
Private Sub CommandButton2_Click()
    If ComboBox1.ListIndex > -1 Then
        With Sheets(ComboBox1.Text)
            .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        
            .Cells(5, 4) = TextBox1.Value: TextBox1 = ""    ' Nom
            .Cells(5, 5) = TextBox2.Value: TextBox2 = ""    ' Prénom
            .Cells(5, 6) = TextBox3.Value: TextBox3 = ""    ' Adresse
            .Cells(5, 8) = TextBox4.Value: TextBox4 = ""    ' Ville
            .Cells(5, 7) = TextBox5.Value: TextBox5 = ""    ' C.P
            .Cells(5, 9) = TextBox6.Value: TextBox6 = ""    ' Tel
            .Cells(5, 2) = TextBox7.Value: TextBox7 = ""    ' Date
            .Cells(5, 3) = TextBox11.Value: TextBox11 = ""  ' N° Cde
            .Cells(5, 10) = TextBox8.Value: TextBox8 = ""   ' Montant
            .Cells(5, 11) = TextBox9.Value: TextBox9 = ""   ' Frais
            .Cells(5, 12) = TextBox10.Value: TextBox10 = "" ' T.T.C
        End With
        ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub


Merci d'avance

Max
 
Trier par date Trier par votes
Re : Enregistrement sur 2 feuilles

Bonjour,
peut être comme ceci, nom de la 2ème feuille à adapter, puisque nous ne savons pas ou tu la prends...
Code: 
Private Sub CommandButton2_Click()
Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "NomFeuil2")
        For i = 0 To 1
            With Sheets(t(i))
                .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Cells(5, 4) = TextBox1.Value: TextBox1 = ""    ' Nom
                .Cells(5, 5) = TextBox2.Value: TextBox2 = ""    ' Prénom
                .Cells(5, 6) = TextBox3.Value: TextBox3 = ""    ' Adresse
                .Cells(5, 8) = TextBox4.Value: TextBox4 = ""    ' Ville
                .Cells(5, 7) = TextBox5.Value: TextBox5 = ""    ' C.P
                .Cells(5, 9) = TextBox6.Value: TextBox6 = ""    ' Tel
                .Cells(5, 2) = TextBox7.Value: TextBox7 = ""    ' Date
                .Cells(5, 3) = TextBox11.Value: TextBox11 = ""  ' N° Cde
                .Cells(5, 10) = TextBox8.Value: TextBox8 = ""   ' Montant
                .Cells(5, 11) = TextBox9.Value: TextBox9 = ""   ' Frais
                .Cells(5, 12) = TextBox10.Value: TextBox10 = "" ' T.T.C
            End With
        Next i
        ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub
bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Enregistrement sur 2 feuilles

Re,

il faut bien sur remettre à blanc les textbox APRES la boucle...

Code: 
Private Sub CommandButton2_Click()
Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "NomFeuil2")
        For i = 0 To 1
            With Sheets(t(i))
                .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Cells(5, 4) = TextBox1.Value: TextBox1 = ""    ' Nom
                .Cells(5, 5) = TextBox2.Value: TextBox2 = ""    ' Prénom
                .Cells(5, 6) = TextBox3.Value: TextBox3 = ""    ' Adresse
                .Cells(5, 8) = TextBox4.Value: TextBox4 = ""    ' Ville
                .Cells(5, 7) = TextBox5.Value: TextBox5 = ""    ' C.P
                .Cells(5, 9) = TextBox6.Value: TextBox6 = ""    ' Tel
                .Cells(5, 2) = TextBox7.Value: TextBox7 = ""    ' Date
                .Cells(5, 3) = TextBox11.Value: TextBox11 = ""  ' N° Cde
                .Cells(5, 10) = TextBox8.Value: TextBox8 = ""   ' Montant
                .Cells(5, 11) = TextBox9.Value: TextBox9 = ""   ' Frais
                .Cells(5, 12) = TextBox10.Value: TextBox10 = "" ' T.T.C
            End With
        Next i
        TextBox1 = ""    ' Nom
        TextBox2 = ""    ' Prénom
        TextBox3 = ""    ' Adresse
        TextBox4 = ""    ' Ville
        TextBox5 = ""    ' C.P
        TextBox6 = ""    ' Tel
        TextBox7 = ""    ' Date
        TextBox11 = ""  ' N° Cde
        TextBox8 = ""   ' Montant
        TextBox9 = ""   ' Frais
        TextBox10 = "" ' T.T.C
        ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Enregistrement sur 2 feuilles

Bonjour apdf1, Pierrot93,

Il l'a dit, mais il l'a fait qu'à moitié ^^ : Il faut bien sur remettre à blanc les champs des textbox après la boucle (et donc pas dedans !). Petit oubli réparé ici :
Code: 
Private Sub CommandButton2_Click()
Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "NomFeuil2")
        For i = 0 To 1
            With Sheets(t(i))
                .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Cells(5, 4) = TextBox1.Value
                .Cells(5, 5) = TextBox2.Value
                .Cells(5, 6) = TextBox3.Value
                .Cells(5, 8) = TextBox4.Value
                .Cells(5, 7) = TextBox5.Value
                .Cells(5, 9) = TextBox6.Value
                .Cells(5, 2) = TextBox7.Value
                .Cells(5, 3) = TextBox11.Value
                .Cells(5, 10) = TextBox8.Value
                .Cells(5, 11) = TextBox9.Value
                .Cells(5, 12) = TextBox10.Value
            End With
        Next i
        TextBox1 = ""    ' Nom
        TextBox2 = ""    ' Prénom
        TextBox3 = ""    ' Adresse
        TextBox4 = ""    ' Ville
        TextBox5 = ""    ' C.P
        TextBox6 = ""    ' Tel
        TextBox7 = ""    ' Date
        TextBox11 = ""  ' N° Cde
        TextBox8 = ""   ' Montant
        TextBox9 = ""   ' Frais
        TextBox10 = "" ' T.T.C
        ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Enregistrement sur 2 feuilles

Re,

bon je reposte à nouveau, mais impossible de modifier ce message.....
Code: 
Private Sub CommandButton2_Click()
Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "NomFeuil2")
        For i = 0 To 1
            With Sheets(t(i))
                .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                .Cells(5, 4) = TextBox1.Value
                .Cells(5, 5) = TextBox2.Value
                .Cells(5, 6) = TextBox3.Value
                .Cells(5, 8) = TextBox4.Value
                .Cells(5, 7) = TextBox5.Value
                .Cells(5, 9) = TextBox6.Value
                .Cells(5, 2) = TextBox7.Value
                .Cells(5, 3) = TextBox11.Value
                .Cells(5, 10) = TextBox8.Value
                .Cells(5, 11) = TextBox9.Value
                .Cells(5, 12) = TextBox10.Value
            End With
        Next i
        For i = 1 To 12
              Me.Controls("Textbox" & i) = ""
        Next i
ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub

Edité
 
Dernière édition:
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

F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
BLACKHAYES
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
502
cathodique
cathodique
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
G
  • Question Question
XL 2016 Compte à rebours dans un userform
2
Réponses
15
Affichages
983
patricktoulon
patricktoulon
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
Dranreb
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
969
sousou
sousou
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
922
AtTheOne
AtTheOne
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
760
Francky79
F
Cendrillon
  • Question Question
XL 2016 Saisie formulaire dans une autre feuille
Réponses
2
Affichages
629
Cendrillon
Cendrillon
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
928
Appo1985
A
C
  • Résolu(e)
XL 2021 Tri alpha sur combobox à 2 colonnes
2
Réponses
15
Affichages
1 K
dysorthographie
dysorthographie
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
716
florian50470
F
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
1 K
herve62
herve62
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
968
ccia
C
R
  • Question Question
Microsoft 365 Mise en forme email
Réponses
7
Affichages
1 K
dysorthographie
dysorthographie
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
R
  • Question Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
1 K
romubzh35
R
Retour