Remplir un tableau avec un UserForm

Bonjour,

je voudrais remplir une feuille Excel à partir d'un User Form. La feuille à remplir est un fichier client auquel je veux ajouter les nouvelles données en fin de liste à chaque entrée saisie sur le User Form.

Problème j'ai une erreur 9 dés que je valide. La feuille à remplir s’appelle "CLIENT";

Je copie ci-dessous la macro qui génère l'erreur :

Private Sub CommandButton1_Click()

dlt = Sheets(“CLIENT”).Range(“DF1558”).End(xlUp).Row

Sheets(“CLIENT”).Range(“A” & dlt) = TextBox1

Sheets(“CLIENT”).Range(“B” & dlt) = TextBox2

Sheets(“CLIENT”).Range(“C” & dlt) = TextBox3

Sheets(“CLIENT”).Range(“D” & dlt) = TextBox4

Sheets(“CLIENT”).Range(“E” & dlt) = TextBox5

Sheets(“CLIENT”).Range(“F” & dlt) = TextBox6

Unload UserForm1

End Sub

Bonjour toutes et tous

@Ferran

j'ai un doute que cela fonctionne

mais, les apostrophes entre les guillemets me semble incorrectes

dlt = Sheets("CLIENT")

etc.

Merci mais vos doutes s'avèrent exacts. J'ai enlevé les parenthèses mais toujours en erreur. Je suis complètement novice et je bloque.

Private Sub CommandButton1_Click()

dlt = Sheets(“CLIENT”).Range(“F1558”).End(xlUp).Row

Sheets“CLIENT”.Range(“A” & dlt) = TextBox1

Sheets“CLIENT”.Range(“B” & dlt) = TextBox2

Sheets“CLIENT”.Range(“C” & dlt) = TextBox3

Sheets“CLIENT”.Range(“D” & dlt) = TextBox4

Sheets“CLIENT”.Range(“E” & dlt) = TextBox5

Sheets“CLIENT”.Range(“F” & dlt) = TextBox6

Unload UserForm1

End Sub

HELP !!!!

re,@ tester si le bouton de commande se trouve bien sur ta feuille Client

1- Supprimer les cellules fusionnées au cas où

Private Sub CommandButton1_Click()
' Déclaration variable dlt
Dim dlt As Integer
dlt = Range("A1558").End(xlUp).Row + 1
Range("A" & dlt) = TextBox1 
Range("B" & dlt) = TextBox2
Range("C" & dlt) = TextBox3
Range("D" & dlt) = TextBox4
Range("E" & dlt) = TextBox5
Range("F" & dlt) = TextBox6

Unload UserForm1

End Sub

oups: j'avais oublié ces apostrophes grr

les textboxs sont de ton userform1 ce qui change

Range("A" & dlt) = Userform1.TextBox1.Value

...sans fichier

Merci André 13 mais c'est une erreur 1004 qui arrive maintenant.

Le bouton d'appel du Userform est sur la feuille à remplir.

La ligne de code suivante est toujours surlignée.... dlt = Range("A1558").End(xlUp).Row +1

re

voir si : il y a des filtres sur les entêtes de colonnes

heu! oui mais le lancement (chargement)de ton userform1 il est ou dans tout çà ?

Private Sub CommandButton1_Click()
' Déclaration variable dlt
Dim dlt As Integer
dlt = Range("A1558").End(xlUp).Row + 1
Range("A" & dlt) = Userform1.TextBox1.Value
Range("B" & dlt) = Userform1.TextBox2.Value
Range("C" & dlt) = Userform1.TextBox3.Value
Range("D" & dlt) = Userform1.TextBox4.Value
Range("E" & dlt) = Userform1.TextBox5.Value
Range("F" & dlt) = Userform1.TextBox6.Value

Unload UserForm1

End Sub

merci à Ericcool02 (+1 rectifié)

Bonjour le forum

Bonjour Ferran, André13

Il est étonnant que tu ai de nouveau une erreur. La première erreur était due à ton absence de déclaration de la variable "dlt".

En pratique, cela devrait fonctionner normalement. Tu devrais copier ton code puis fermer Excel, le rouvrir puis réinjecter le code.

Il est également bizarre, à moins que tu ai recopié le code, que l'incrémentation "1" soit collée à ton signe "+", il devrait y avoir un espace

 dlt = Range("A1558").End(xlUp).Row[color=#FF0000] +1[/color]

. Afin d'y voir plus clair, tu devrais mettre en ligne ton fichier anonymisé.

@+ Ericcool02

ok je met un fichier identique en ligne car j'ai toujours une erreur

Il faut que je décroche un moment.

Merci andré13 et ericcool02

re

1/ ton userform1 se nomme clients et non userform1 du coup

pour cela ton erreur

2/ les apostrophes

3/ Enregistre ton classeur (prenant en charge les macros)

voila ci-joint

Re,

Voici ton fichier.

Bonne continuation et n'hésites pas.

@+ Ericcoo02

Bonjour

A voir auusi

Private Sub CommandButton1_Click()
Dim Dlt&, C& ' D?claration variable
Dlt = Range("A" & Rows.Count).End(xlUp).Row + 1
    For C = 1 To 6
        Cells(Dlt, C).Value = Controls("TextBox" & C).Value
    Next
Unload Me
End Sub

A+

Maurice

RE,

Bonjour archer. Laissons à notre ami découvrir tout doucement l'intégration de valeurs dans les cellules. Il n'a déjà pas la notion de déclaration de variable. Alors là, dans ton code, tu as "grillé" quelques étapes .

Bonne soirée

Bonjour à tous

Un grand merci à tous, vous m'avez évitez des heures de recherche.

A très bientôt