saisie horizontale avec Texbox

[Bricoltou]

Bonjour le Forum

Je cherche a mettre la valeur de mon Textbox1 ( date )dans des cellules horizontale jour après jour .
Cela semble simple mais c'est quelque chose que je n'ai jamais réalisé .😕
Je n'ai pas d'obligation à utiliser le Calendar , si vous avez une idée plus simple je suis preneur .
Une saisie sera faite chaque jour
Merci pour votre aide 😉

@+

Bricoltou

 

[Bricoltou]

Re : saisie horizontale avec Texbox

bonsoir

avec un

.End(xlToRight)

et non un

.End(xlDown)

😉

Bonsoir le forum,carcharodon-carcharias

Merci pour ta réponse , j'ai écrit ce code mais il ne marche .

With Sheets("Mois")
For i = 7 To .Range("G2" & 1).End(xlToLeft).Column
.Cells(2, i) = TextBox1

Next i
End With

Je souhaite commencer à écrire en G2 puis H2 ect ect

Merci d'avance pour votre aide

@+ Bricoltou

 

[Bricoltou]

Re : saisie horizontale avec Texbox

re

With Sheets("Mois")
 .Range("IV2").End(xlToLeft).Offset(0, 1) = TextBox1

End With

attention sous condition que F2 ne soit pas vide

Re :carcharodon-carcharias

Super 😀merci pour ton aide 😉

Bricoltou