Ajouter une ligne a un fichier avec les Txtbox

Bonjour à tous,

j'ai un fichier Famille de 42 colonnes et 1634 lignes

j'ai crée 42 textbox

la je souhaite faire le code qui va me permetre d'ajouter une ligne a ce fichier

j'ai l'instruction pour une seule textbox qui est la suivante:

Private Sub CbOK_Click()

'ajouter une personne à la igne 1634 du fichier excel

Sheets("Feuil1").Range("A1634").Value = TextBox1.Value

............................................................................................................

Sheets("Feuil1").Range("A1634").Value = TextBox1.Value

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub

J'ai essayé de faire la boucle for mais ca ne marche pas

Bonjour

En supposant que tes Texbox vont de Textbox1 à Textbox42

A tester :

Premlg = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
        For x = 1 To 42
            Sheets("Feuil1").Cells(Premlg, x).Value = Me.Controls("TextBox" & x).Value
        Next x

Si pas ça, merci de joindre ton fichier

Amicalement

Nad

Bonjour,

regarde ceci, espérant que cela puisse t'aider à avancer, à utiliser dans le module de l'userform :

Dim l As Long, i As Long
l = 12 'numéro de ligne
For i = 1 To 42
    Cells(l, i) = Me.Controls("TextBox" & i)
Next i

bonne journée

@+

Edition : un peu en retard moi, bonjour Nad

Bonjour,

Ca ne marche pas

il a air juste ton raisonnement

mais je pense qu'il est pas complet!

car vous n'avez pas précisé le numéro de la feuille!!!

car sur mon fichier excel j'ai plusieurs feuilles

Re,

bah... rajouter devant "cells"

Sheets("NomFeuille").

voir l'objet "workbook" si le classeur en question n'est pas le classeur actif....

non !!!!!!!!

Private Sub CbOK_Click()

For i = 1 To 43

Dim l As Long, i As Long

l = 2 'numéro de ligne

For i = 1 To 43

Sheet("Feuil2").Cells(l, i) = Me.Controls("TextBox" & i)

Next i

End Sub

Private Sub CbOK_Click()

Dim l As Long, i As Long

l = 2 'numéro de ligne

For i = 1 To 43

Sheet("Feuil3").Cells(l, i) = Me.Controls("TextBox" & i)

Next i

yassou a écrit :

non !!!!!!!!

Mais c'est qu'il s'énerverait le bougre !!!!

On a essayé de t'aider avec ce que tu nous donnes (c'est à dire pas grand chose)

Maintenant, un fichier est nécessaire

Nad

cijoint le fichier

merci

Re,

pas de bouton nommé "CbOK" sur l'userform "AjoutEnfant".....

merci de me signaler cette erreur mais ce beug toujours au niveau de cette ligne

////Sheets("Feuil2").Cells(l, i) = Me.Controls("TextBox" & i)////// Ca met en jaune!!!

Au fait

on me dit objet specifié introuvable!!

j ai bien corig le nom de boutton de commande CbOK et boutondecommade2!!

merci

Re,

dans le même userform :

Dim l As Long, i As Long
l = 2  'numéro de ligne
For i = 1 To 43
  Sheet("Feuil3").Cells(l, i) = Me.Controls("TextBox" & i)
Next i

sheet avec un s (sheets)

pas de feuille3...

pas de textbox4....

vérifie bien que tous les objets soient présents....

MERCIIIIIIIIIIIII

Nad

t'es super agréable

Ca met bien la nouvelle ligne

juste une question:

pour quoi lorsque je met les nom sur interface, ca rajoute les element dan sle fichier excel mais le boutton ok il fonctionne pas!!

Re,

pas tout compris :

pour quoi lorsque je met les nom sur interface, ca rajoute les element dan sle fichier excel mais le boutton ok il fonctionne pas!!

alors que tu dis :

Ca met bien la nouvelle ligne

OUi

mais le boutton OK lorsque je cliqu desse l'interface reste tojours sur la page c avec quitter que je revient sur Excel

merci Nad

t'es super ! fort!

Re,

nous ne devons pas parler du même bouton... dans l'éditeur vba, sur l'userform double clik sur le bouton en question pour visualiser / placer le bon code....

c bon merciiiii Nad

a bientôt