recopier données en ligne depuis userform

[meldja]

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

 

[excalibur]

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)

 

[meldja]

Re : recopier données en ligne depuis userform

Merci exalibur,
Je vais tester de suite

 

[meldja]

Re : recopier données en ligne depuis userform

Juste pour confirmer, après test, tout roule.
Merci encore et bonne journée

 

[meldja]

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

 

[skoobi]

Re : recopier données en ligne depuis userform

Bonsoir,

test ceci:

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

 

[meldja]

Re : recopier données en ligne depuis userform

Salut,
merci, ça marche nickel.
Bonne soirée