Insertion de textes en colonnes au lieu de lignes

[Corbaz Guy]

Pour Excel 2000.
Je débute en VBA et j'ai créé un UserForm qui me permet d'entrer
des lignes dans un tableau Excel et ceci dans le sens vertical aussi
j'aimerais savoir si l'on peut faire la même chose dans le sens horizontal
c'est à dire créer des colonnes au lieu des lignes .
Ci joint le module que j'utilise pour faire mes lignes.

Private Sub CmdOk_click()
Sheets("Liste").Select
ActiveSheet.[Deb].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("Deb").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.Date
ActiveCell.Offset(1, 0).Value = UserForm1.Lieu1
ActiveCell.Offset(2, 0).Value = UserForm1.Lieu2
Unload Me
End Sub
Merci d'avance

 

[@+Thierry]

Salut Corbaz

Pas très clair ton code. Mais en partant du même principe :
Ceci sans test.... Juste pour te donner une idée.

Sub Macro1()
Private Sub CmdOk_click()
Sheets("Liste").Select
ActiveSheet.[Deb].Select
Selection.End(xIToRight).Select
If Selection.Address = "$IV$256" Then
Range("Deb").Offset(0, 1).Select
Else
Selection.Offset(0, 1).Select
End If
ActiveCell.Value = UserForm1.Date
ActiveCell.Offset(0, 1).Value = UserForm1.Lieu1
ActiveCell.Offset(0, 2).Value = UserForm1.Lieu2
Unload Me
End Sub
End Sub

Bonne Soirée

 

[Corbaz Guy]

Merci pour le renseignement, à priori ça à l'air de fonctionner.
j'étais absent aussi je n'ai pas pu vous remercier.

 

[@+Thierry]

You are Welcome Guy

Heureux que çà puisse marcher !! c'était sans filet !! lol

Bonne soirée
🙂
@+Thierry