textbox pour colonne G ou H selon valeur

[pascal21]

bonsoir
peut-on avoir pour un textbox 2 colonnes de destination
je m'explique
j'aimerais que lorsque je clique sur un bouton dans un usf le textbox écrive dans la colonne G ou H en fonction de la valeur inscrite dans les textbox
donc si la valeur est inférieure au 1er janvier de l'année en cours alors ça s'inscrit colonne G sinon colonne H
cela pour faire "l'économie" d'un textbox sur l'usf
je vous joint un petit exemple

 

[justine]

Re : textbox pour colonne G ou H selon valeur

bonsoir le forum, pascal21
je te propose cette solution qui marche chez moi

Private Sub CommandButton1_Click()
If CDate(TextBox2) < "01/01" Then
X = Range("f65536").End(xlUp).Row + 1
Range("f" & X) = TextBox1.Value
Range("g" & X) = TextBox2.Value
Else
X = Range("f65536").End(xlUp).Row + 1
Range("f" & X) = TextBox1.Value
Range("h" & X) = TextBox2.Value
End If
TextBox1.Value = ""
TextBox2.Value = ""
End Sub

 

[pascal21]

Re : textbox pour colonne G ou H selon valeur

c'est parfait merci justine
bonne soirée

 

[Staple1600]

Re : textbox pour colonne G ou H selon valeur

Bonsoir



Une autre solution (à adapter OK)
PS: (en utilisant une seule TextBox )

A tester désormais

Private Sub CommandButton1_Click()
Dim Col As Long
Dim premjanv As Date
[COLOR=SeaGreen]'ici changer l'année quand nécessaire[/COLOR]
premjanv = DateSerial([B]2008[/B], 1, 1)
Col = Switch(Date < premjanv, 6, Date > premjanv, 8)
Cells(65536, Col).End(xlUp).Offset(1, 0).Value = TextBox1
End Sub

Bonne fin de week-end à tous.