textbox pour colonne G ou H selon valeur

pascal21

XLDnaute Barbatruc
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
 

Pièces jointes

  • quelle colonne.xls
    30.5 KB · Affichages: 71

justine

XLDnaute Occasionnel
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
 

Staple1600

XLDnaute Barbatruc
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
Code:
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.
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 827
Messages
2 092 557
Membres
105 451
dernier inscrit
mariane_lp