Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel userform et liste

userform et liste

12 réponses
Avatar
J&B
Bonjour,

Je cherche à faire un userform avec une 10 de champs
Je souhaiterai quand cliquand sur un bouton ce userform apparaisse er que
les données saisies se mettent a la suite dans une feuille "BDD1"
Si qq a un bout de code pour demarer ça serait super
Merci d'avance
J&B
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
http://cjoint.com/?jzjCEdbhzb

JB

On 25 sep, 09:21, "J&B" wrote:
Bonjour

Le fichier attaché est toujours le même et ne comporte pas les nouvel les
macros

Merci

"JB" a écrit dans le message de news:

On 25 sep, 06:53, JB wrote:



> Bonjour,

> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1
> Then
> If Target <> "" Then
> UserForm2.Show
> End If
> End If
> End Sub

> Private Sub UserForm_Initialize()
> ligne = ActiveCell.Row
> For i = 1 To 10
> Me("textbox" & i) = Sheets("Bdd1").Cells(ligne, i)
> Next i
> End Sub

> Private Sub B_o_Click()
> ligne = ActiveCell.Row
> For i = 1 To 10
> Sheets("Bdd1").Cells(ligne, i) = Me("textbox" & i)
> Next i
> Unload Me
> End Sub

> Private Sub b_annul_Click()
> Unload Me
> End Sub

>http://cjoint.com/?jzg1LNlptW

> JB

> On 24 sep, 20:28, "J&B" wrote:

> > Merci beaucoup
> > Est ce possible en cliquant sur la ligne de la feuille de la BDD1
> > d'afficher
> > les données pour les modifier ou en ajouter sur les champs non sais is ??

> > "JB" a écrit dans le message de news:
> >
> > Bonsoir,

> > Private Sub B_o_Click()
> > ligne = Sheets("bdd1").[A65000].End(xlUp).Row + 1
> > For i = 1 To 10
> > Sheets("Bdd1").Cells(ligne, i) = Me("textbox" & i)
> > Next i
> > End Sub

> >http://cjoint.com/?jytyekrb6r

> > JBhttp://boisgontierjacques.free.fr/

> > On 24 sep, 17:01, "J&B" wrote:

http://cjoint.com/?jzg4PAahha

JB



> > > Bonjour,

> > > Je cherche à faire un userform avec une 10 de champs
> > > Je souhaiterai quand cliquand sur un bouton ce userform apparaisse er
> > > que
> > > les données saisies se mettent a la suite dans une feuille "BDD1"
> > > Si qq a un bout de code pour demarer ça serait super
> > > Merci d'avance
> > > J&B- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -- Masquer le texte d es
> > messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -

- Afficher le texte des messages précédents -


Avatar
Daniel.C
Oups, c'était un ficher au format XL2007. Essaie plutôt :
http://cjoint.com/?jzjSvuXWQ2
Cordialement.
Daniel
"J&B" a écrit dans le message de news:
48db378e$0$16017$
Comprend pas ce fichier zip contier des xlm, des active x
des repertoires ,????????

"Daniel.C" a écrit dans le message de news:

Oui, pourtant. Clique sur le bouton "saisie", l'userform apparait avec
deux textboxes à remplir. Ensuite appuie sur le bouton "OK" et tes
données sont copiées les unes sous les autres en colonne A et B
Daniel
"Daniel.C" a écrit dans le message de news:
%
Regarde le classeur à l'adresse :
http://cjoint.com/?jys3Mmkmf7
Je n'ai créé que deux champs.
Cordialement.
Daniel
"J&B" a écrit dans le message de news:
48da5416$0$11227$
Bonjour,

Je cherche à faire un userform avec une 10 de champs
Je souhaiterai quand cliquand sur un bouton ce userform apparaisse er
que les données saisies se mettent a la suite dans une feuille "BDD1"
Si qq a un bout de code pour demarer ça serait super
Merci d'avance
J&B















1 2