Décaler de colonnes jusqu'à une vide [Résolu]

[VBA-Romix]

bonjour,
je suis complètement débutant dans le langage VBA.
j'ai créé un formulaire avec des text box qui remplissent une colonne dans une feuille, cependant je voudrai ne pas écraser les données contenu dans la colonne a chaque fois que je rempli mon formulaire.
je chercherai un fonction qui quand j'ouvre mon formulaire décale d'une colonne a droite tant que la colonne pour enregistrer est pleine .

en espérant être clair merci de votre aide
voici un morceau de mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
Sheets("Feuil1").Range("C1").Value = TextBox1.Value
Sheets("Feuil1").Range("C2").Value = TextBox3.Value
Sheets("Feuil1").Range("C3").Value = TextBox2.Value
Sheets("Feuil1").Range("C4").Value = TextBox4.Value
Sheets("Feuil1").Range("C5").Value = TextBox5.Value
Sheets("Feuil1").Range("C6").Value = TextBox6.Value
Sheets("Feuil1").Range("C7").Value = TextBox7.Value
Sheets("Feuil1").Range("C10").Value = "x"
End Sub

[Jean-Pierre49]

bonjour

Une piste

http://www.developpez.net/forums/d45...gnees-feuille/


bon courage

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim Col As Integer
With Sheets("Feuil1")
    Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
    If Col < 3 Then Col = 3
    .Cells(1, Col).Value = TextBox1.Value
    .Cells(2, Col).Value = TextBox3.Value
    .Cells(3, Col).Value = TextBox2.Value
    .Cells(4, Col).Value = TextBox4.Value
    .Cells(5, Col).Value = TextBox5.Value
    .Cells(6, Col).Value = TextBox6.Value
    .Cells(7, Col).Value = TextBox7.Value
    .Cells(10, Col).Value = "x"
End With
End Sub

[VBA-Romix]

merci,
mais ça ne marche pas encore, quand je clique sur mon bouton cela enregistre bien mais en écrasant l'ancien enregistrement .

[Jean-Pierre49]

Dans le code de Daniel.C

remplace

Code :

1
2
    Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
    If Col < 3 Then Col = 3

par

Code :

    Col = .Cells(1, .Columns.Count).End(xlToLeft).Column+1

tu dis

edit: ce coup ci gillé pijaku

[pijaku]

Bonjour tout le monde,

En reprenant le code de Daniel, change juste cette ligne :

Code :

Col = .Cells(1, .Columns.Count).End(xlToLeft).Column

à remplacer par :

Code :

Col = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1

en effet, .Cells(1, .Columns.Count).End(xlToLeft).Column renvoie le numéro de la dernière colonne remplie, pas la première vide... Donc +1!
Bonne journée

[VBA-Romix]

merci bop ça marche super !