Ajouter des données dans des colonnes particulières

Bonjour j'ai créé un code qui me permet d'ajouter des données (via un userform) sur des tables sur différentes feuilles.

Le problème est que je voudrais que ces données aillent dans certaines colonnes et pas d'autres.

C'est à dire que le champs renseigné dans mon textbox1 va dans la colonne A, celui de mon textbox2 va dans la colonnes B, etc. Et je voudrais que par exemple, au lieu que la donnée de mon TextBox3 aille dans la colonne C, je voudrais qu'elle aille dans la D et qu'il n'y ait rien d'indiqué dans la C.

Lorsque je rajoute ces données elles vont en fin de table (la première ligne vide).

Pour résumer ce que je veux lorsque j'appuie sur ajouter commande (bouton qui confirme l'envoie des données dans une feuille) :

TextBox1 --> colonne A

TextBox2 --> colonne B

TextBox3 --> colonne C

TextBox4 --> colonne D

TextBox5 --> colonne E

TextBox6 --> colonne H

TextBox7 --> colonne I

TextBox8 --> colonne J

TextBox9 --> colonne L

TextBox10 --> colonne M

code 1 code 2

Si vous avez une idée, je suis preneur.

Merci et bonne journée.

bonjour,

Merci de ne pas mettre de photo (on ne sait rien en faire! ) mais le fichier contenant ton code (ou à minima le texte de ton code)

voici une correction possible

    For x = 1 To nbcontrole
        nouvelleligne = Me.Controls("textbox" & x).Value
        Select Case x
            Case 1, 2, 3, 4, 6, 7, 9
                Set nouvelleligne = nouvelleligne.Offset(0, 1)
            Case 5
                Set nouvelleligne = nouvelleligne.Offset(0, 3)
            Case 8
                Set nouvelleligne = nouvelleligne.Offset(0, 2)
        End Select
    Next x

Merci à toi je vais essayer ça

Rechercher des sujets similaires à "ajouter donnees colonnes particulieres"