Script pour ajout de colonne

Question

Ce script me permet de rentrer des textbox dans des lignes au fur et à mesure en partant du haut vers le bas Dim i As Integer i = Range("a100").End(xlUp).Row + 1 Range("a" & i) = TextBox1 Range("b" & i) = UCase(TextBox2) Range("c" & i) = ComboBox1 Range("d" & i) = TextBox3 Range("E" & i) = TextBox4 Range("F" & i) = TextBox5 TextBox1 = " " TextBox2 = " " ComboBox1 = " " TextBox3 = " " TextBox4 = " " TextBox5 = " " End Sub Je souhaite savoir si la formule existe pour rentrer par colonne de gauche à droite au lieu de ligne haut en bas Merci de votre aide...

ThauThème · Answer

Bonjour Lemidi, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim COL As Integer
COL = IIf(Cells(1, 1).Value = "", 1, Cells(1, Application.Columns.Count).End(xlToLeft).Column + 1)
Cells(1, COL).Value = UCase(TextBox2).Value
Range(2, COL).Value = ComboBox1.Value
Range(3, COL).Value = TextBox3.Value
Range(4, COL).Value = TextBox4.Value
Range(5, COL).Value = TextBox5.Value
TextBox1 = " "
TextBox2 = " "
ComboBox1 = " "
TextBox3 = " "
TextBox4 = " "
TextBox5 = " "
End Sub

Xmenpl · Answer

'Numéro de la première colonne trouvé J = Cells(2, 16384).End(xlToLeft).Column +1 ' saisie des infos en colonne sur la ligne 2 : Cells(2, J)=Textbox1 Cells(2, J+1)=Ucase(Textbox2) ... Bonjour c'est un peu le même principe il faut trouver la dernière cellule non vide d'une ligne et ajouter 1 Par contre il faut savoir si il faut décaler la colonne à chaque textbox ...