Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Userform pour saisie sur 2 feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sev
  • 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
S

sev

Guest
Bonjour je joints un fichier d'exemple avec un userform pour saisir des données sur 2 feuilles en même temps.

Je ne vois pas comment modifier le code.

Merci à tous
 

Pièces jointes

Trier par date Trier par votes
Re : Userform pour saisie sur 2 feuilles

bonjour Sev

ton code modifié, si j'ai bien compris.

Code: 
Private Sub Validation_Click()
Dim LASTLIG As Integer
With Sheets("Feuil1")
    Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & Ligne_Vide) = ANNEE
    .Range("B" & Ligne_Vide) = MOIS
    .Range("C" & Ligne_Vide) = JOUR
    .Range("A" & Ligne_Vide + 1) = ANNEE
    .Range("B" & Ligne_Vide + 1) = MOIS
    .Range("C" & Ligne_Vide + 1) = JOUR
    .Range("E" & Ligne_Vide) = ComboBox1.Value
    .Range("K" & Ligne_Vide) = TextBox4
    .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
    .Range("M" & Ligne_Vide + 1) = TextBox4
End With
With Sheets("Feuil2")
    Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & Ligne_Vide) = ANNEE
    .Range("B" & Ligne_Vide) = MOIS
    .Range("C" & Ligne_Vide) = JOUR
    .Range("A" & Ligne_Vide + 1) = ANNEE
    .Range("B" & Ligne_Vide + 1) = MOIS
    .Range("C" & Ligne_Vide + 1) = JOUR
    .Range("E" & Ligne_Vide) = ComboBox1.Value
    .Range("K" & Ligne_Vide) = TextBox4
    .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
    .Range("M" & Ligne_Vide + 1) = TextBox4
End With
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Userform pour saisie sur 2 feuilles

Bonjour,
Salut Pierrot🙂

Pas claire la question effectivement...
Je proposerais un peu plus court😉 si bonne interprétation et sous réserve des noms de feuilles dans la réalité. Une alternative pourrait être trouvée en utilisant Sheets(i) à condition de connaître le n°des feuilles concernées.
Code: 
Private Sub Validation_Click()
Dim Ligne_Vide As Integer
Dim i As Byte
    For i = 1 To 2
        With Sheets("Feuil" & i)
        Ligne_Vide = .Range("A65536").End(xlUp).Row + 1
        .Range("A" & Ligne_Vide) = ANNEE
        .Range("B" & Ligne_Vide) = MOIS
        .Range("C" & Ligne_Vide) = JOUR
        .Range("A" & Ligne_Vide + 1) = ANNEE
        .Range("B" & Ligne_Vide + 1) = MOIS
        .Range("C" & Ligne_Vide + 1) = JOUR
        .Range("E" & Ligne_Vide) = ComboBox1.Value
        .Range("K" & Ligne_Vide) = TextBox4
        .Range("E" & Ligne_Vide + 1) = ComboBox2.Value
        .Range("M" & Ligne_Vide + 1) = TextBox4
    End With
Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
Microsoft 365 Nouveau projet
Réponses
9
Affichages
262
C'est Génial
C
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
356
desmonts
D
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
274
AD74
A
  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
319
jcf6464
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
E
  • Résolu(e)
XL 2010 Affichage d'un USF sans module mais avec du code inscrit dans le VBE de la feuille1
2
Réponses
16
Affichages
1 K
ericcool
E
A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
330
Amilo
A
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
767
SAMUAL_2023
S
M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
435
Mimi1952
M
  • Question Question
Microsoft 365 Afficher un userform sans titre
Réponses
2
Affichages
187
AIXELS
S
  • Question Question
XL 2016 Conserver la police et couleur
Réponses
4
Affichages
221
SVI
S
C
  • Résolu(e)
Microsoft 365 bouton pour un userform
Réponses
14
Affichages
587
C'est Génial
C
F
  • Résolu(e)
Microsoft 365 UserForm_Initialize
Réponses
12
Affichages
325
Francky79
F
  • Résolu(e)
Autres Excel LTSC Pro 2024. Créer une hiérarchie afin de créer des dossiers et sous-dossiers.
Réponses
12
Affichages
557
patricktoulon
  • Question Question
XL 2019 problème sélection feuille en VBA
Réponses
7
Affichages
502
ARaul
  • Question Question
Microsoft 365 Problème lors réinitialisation
Réponses
13
Affichages
595
AIXELS
  • Question Question
XL pour MAC Saisie automatique sur facture
Réponses
3
Affichages
214
Piment
P
F
  • Résolu(e)
Microsoft 365 DatePicker dans Userform pour Excel365 ?
Réponses
12
Affichages
1 K
patricktoulon
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
522
TooFatBoy
  • Question Question
Microsoft 365 liste deroulante "active"" du combobox
Réponses
2
Affichages
248
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…