XL 2016 intégration de colonne

Fred0o

XLDnaute Barbatruc

• 30 Mars 2021

• #2

Bonjour lemidi34

Code modifie a adapter a ton contexte et a tester

VB:

Sub Test()
    Dim i As Integer
    i = Range("XFD10").End(xlToLeft).Column + 1
    Cells(10, i) = TextBox1
    Cells(10, i + 1) = UCase(TextBox2)
    Cells(10, i + 2) = ComboBox1
    Cells(10, i + 3) = TextBox3
    Cells(10, i + 4) = TextBox4
    Cells(10, i + 5) = TextBox5
    TextBox1 = " "
    TextBox2 = " "
    ComboBox1 = " "
    TextBox3 = " "
    TextBox4 = " "
    TextBox5 = " "
End Sub

 

Vote positif 0 Vote négatif

L

Lemidi34

XLDnaute Occasionnel

• 30 Mars 2021

• #3

Merci beaucoup Fred0o

je regarde ca

bonne journée.

 

Vote positif 0 Vote négatif

L

Lemidi34

XLDnaute Occasionnel

• 30 Mars 2021

• #4

Je me suis mal exprimé en fait

je souhaite remplir mes texbox dans la colonne 1 et au fur à mesure dans les autres colonnes mais j'ai 6 lignes dans chaque colonne par exemple, en fait c'est un mix entre mon code et le tien.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 30 Mars 2021

• #5

Re-bonjour

Un petit fichier exemple anonymisé avec ce que tu souhaites et ton USF, me permettrait de te proposer une solution adaptée.

 

Vote positif 0 Vote négatif

L

Lemidi34

XLDnaute Occasionnel

• 30 Mars 2021

• #6

Ci joint un exemple réalisé vite fait pour intégrer site apres site

 

Pièces jointes

• Classeur10.xlsm

  14.4 KB · Affichages: 5

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #7

Bonjour lemidi34.

Si j'ai bien compris ta demande, voir ma proposition en piece jointe.

 

Pièces jointes

• Classeur10_v1.xlsm

  24.1 KB · Affichages: 3

Vote positif 0 Vote négatif