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

recopier données en ligne depuis userform

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

meldja

XLDnaute Impliqué
Bonjour,

Je suis en train d'essayer d'envoyer le contenu d'une TextBox dans une des feuilles qui correspond au groupe en question.
Quelqu'un m'a déjà arrangé le problème sur ce forum mais avec des données en colonne (les unes en dessous des autres).
J'aimerai faire la même chose mais en ligne (les données les unes à côté des autres). Je n'arrive pas à adapeter.
J'ai joint le fichier qui sera certainement plus explicite. J'ai déjà un peu de code (que j'ai pompé sur ce qu'on m'avait fait). En fait, il y a 2 UserForms : le 1er est nickel (merci BrunoM45) et le second est à arranger.
Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : recopier données en ligne depuis userform

bonjour meldja le forum si j ai compris !!
rajoute dans le code de ton bouton a la fin

Sheets(ComboBox1.Value).Activate
Range("iv2").End(xlToLeft).Offset(0, 1).Select
Selection = TextBox1
Sheets("saisie").Activate
' On ferme l'USF attention hide cache user mais le ferme pas
Unload Me'pour fermer & le decharger

code simplifie...
Selection = TextBox1
Selection.Copy Destination:=Sheets(ComboBox1.Value).Range("iv2").End(xlToLeft).Offset(0, 1)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : recopier données en ligne depuis userform

Re bonjour,
Les données ont changé et je n'arrive à adapter.
Au départ, j'avais le choix entre 3 plages horaires à envoyer dans une cellule. La même valeur était attribué à chaque plage horaire (2 h),
mais maintenant les données ont changé, j'ai 4 plages horaires (les 2 premières durent 2 h et les deux autres, 1h 30).
J'avais ce code :

With Sheets(NomFeuille)
DerLig = .Cells(Rows.Count, VCol).End(xlUp).Row + 1
.Cells(DerLig, VCol).Value = DateValue(Me.TextBox3.Value)
'
Dim PlageHoraire As String
If Me.OptionButton1.Value = True Then PlageHoraire = Me.OptionButton1.Caption
If Me.OptionButton2.Value = True Then PlageHoraire = Me.OptionButton2.Caption
If Me.OptionButton3.Value = True Then PlageHoraire = Me.OptionButton3.Caption

.Cells(DerLig + 1, VCol).Value = PlageHoraire
.Cells(DerLig + 2, VCol).Value = 2
End With

et j'ai essayé d'adapter comme ça :
With Sheets(NomFeuille)
DerLig = .Cells(Rows.Count, VCol).End(xlUp).Row + 1
.Cells(DerLig, VCol).Value = DateValue(Me.TextBox3.Value)
'
Dim PlageHoraire As String
If Me.OptionButton1.Value = True Then PlageHoraire = Me.OptionButton1.Caption
If Me.OptionButton2.Value = True Then PlageHoraire = Me.OptionButton2.Caption
.Cells(DerLig + 1, VCol).Value = PlageHoraire
.Cells(DerLig + 2, VCol).Value = 2

If Me.OptionButton3.Value = True Then PlageHoraire = Me.OptionButton3.Caption
If Me.OptionButton4.Value = True Then PlageHoraire = Me.OptionButton3.Caption
.Cells(DerLig + 1, VCol).Value = PlageHoraire
.Cells(DerLig + 2, VCol).Value = 1.5

End With

mais ça marche pas !!
Si quelqu'un a une proposition, merci d'avance
 
Vote positif 0 Vote négatif
Re : recopier données en ligne depuis userform

Bonsoir,

test ceci:

Code: 
.........
............
...
    Dim PlageHoraire As String
    If Me.OptionButton1 Or Me.OptionButton2 Then .Cells(DerLig + 2, VCol).Value = 2
    If Me.OptionButton3 Or Me.OptionButton4 Then .Cells(DerLig + 2, VCol).Value = 1.5
    PlageHoraire = Switch(OptionButton1, OptionButton1.Caption, OptionButton2, OptionButton2.Caption, _
                        OptionButton3, OptionButton3.Caption, OptionButton4, OptionButton4.Caption)
    .Cells(DerLig + 1, VCol).Value = PlageHoraire
  End With
 
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

Discussions similaires

C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
750
sylvanu
  • Question Question
Microsoft 365 Splitter une ligne en 3 différentes
Réponses
5
Affichages
185
alexga78
A
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
205
sylvanu
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
687
Jaykerz
J
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
327
Dand87
D
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
416
nightswan
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
828
CedricR34
C
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
518
gpion
G
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
298
ralph45
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
472
sylvanu
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
S
  • Question Question
Microsoft 365 Liaison de données sur deux tableurs
Réponses
7
Affichages
626
AtTheOne
R
  • Question Question
XL 2016 "#valeur!" dans ligne et colonne et camemberts
Réponses
7
Affichages
539
Rikko14
R
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
429
vgendron
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
788
Dubuyz1
D
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
535
NONO14
N
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…