Insertion de textes en colonnes au lieu de lignes

  • Initiateur de la discussion Initiateur de la discussion Corbaz Guy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

Corbaz Guy

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour