Aide formulaire VBA

Bonsoir,

Malgrés la lecture de differents tuto sur la creation de formulaire, je n'arrive pas a finaliser mon projet.

Lors de la création de mon formulaire j'ai souvent la même erreur "Private Sub CommandButton2_Click()" qui est surligné en Jaune.

Je ne connais rien en Excel, je suis juste les tuto que je trouve. Si sur un site je n'y arrive pas, j'essaie sur un autre... Au final j'essaie de comprendre le fonctionnement mais la ca colle pas du tout...

Si quelqu'un pourrait m'aider a faire fonctionner mon tableau de formulaire.

Je souhaite juste un formulaire basique, on renseigne les champs et on clic sur AJOUTER et ca ajoute dans mon tableau de ma feuille "CLIENTS"

En gros j'ai aucune connaissance Excel, je cherche de l'aide pour finaliser mon formulaire...

Bonsoir,

En effet, il y avait plusieurs erreurs de syntaxe dans votre code comme

Feuil1("CLIENTS") 'Remplacé par Sheets("CLIENTS")

Le voilà corrigé ci-joint.

@+

Bonsoir,

en effet "Private Sub CommandButton2_Click()" est bien surligné en Jaune, mais VBA vous aide sur l'erreur appartenant à cette procédure, il met également en surligné bleu l'endroit où "ça coince" :

Ce doit être une erreur de nom de TextBox... Et il n'y en a pas qu'une...

@ bientôt

LouReeD

Okay ! Super rapide

Merci pour la modification LORIS01

Je vais essayer de comprendre, les nouvelles lignes je n'avais pas encore vu ça sur ce que j'ai trouvé en explication.

En tout cas merci beaucoup

Re,

Pour vous aider à la compréhension, en plus de la syntaxe j'ai rajouté une boucle FOR pour affecter la valeur des textbox sur votre feuille. Cela évite d'écrire 8x la même ligne avec seulement un n° de colonne qui change.

For i = 2 To 8
    Sheets("CLIENTS").Cells(Ligne, i) = Me.Controls("TextBox" & i).Value
    Next i

Remplace

Sheets("CLIENTS").Cells(Ligne, 2) = Me.Textbox2.Value
Sheets("CLIENTS").Cells(Ligne, 3) = Me.Textbox3.Value
Sheets("CLIENTS").Cells(Ligne, 4) = Me.Textbox4.Value
Sheets("CLIENTS").Cells(Ligne, 5) = Me.Textbox5.Value
Sheets("CLIENTS").Cells(Ligne, 6) = Me.Textbox6.Value
Sheets("CLIENTS").Cells(Ligne, 7) = Me.Textbox7.Value
Sheets("CLIENTS").Cells(Ligne, 8) = Me.Textbox8.Value