bouton enregistrer

[Toubabou]

Bonjour à tous
NOM: Administrateur
Mot de passe: 0000
Dans un fichier un onglet appelé "LUTIN" dans lequel se trouve un bouton "FORMULAIRE" qui donne accès à un Userform appelé: "PERMIS ET FORMATION". Pour rentrer ne nouvelle personne, j'inscris son nom prénom et matricule et éventuellement je coche quelques case puis "ENREGISTRER".
Petit soucis:
- l'enregistrement ne se fait pas correctement . il n'est pas fait après la dernière ligne remplie mais en ligne 121 et se fait sur trois ou quatre ligne(je vous invite a faire un essai)
- d'autre part je voudrais déplacer le bouton "Formulaire" dans un autre onglet appelé lui aussi "FORMULAIRE".

Pourriez vous m'aider?

Merci par avance
Toubabou

 

[Toubabou]

Re : bouton enregistrer

Re ,
Sans problème mais y pas d'urgence. Merci beaucoup.
Toubabou

 

[herve62]

Re : bouton enregistrer

je t'ai mis un mp !
A+

 

[Toubabou]

Re : bouton enregistrer

Re,

Suite.

1) Complétez le code du bouton avec un test :

Private Sub CommandButton1_Click() 'ENREGISTRER
If ComboBox1 = "" Then Exit Sub
Cells(l, 1) = ComboBox1
Cells(l, 4) = TextBox1
Cells(l, 5).Resize(, 19).Font.Name = "Wingdings"
For I = 1 To 26 '26 egal le nombre de case ˆ cocher
Cells(l, I + 4) = IIf(Controls("CheckBox" & I) = 0, "", "ü")
Next
End Sub

2) Comme Combobox1 donne le nom et le prénom, les colonnes B et C sont inutiles, supprimez-les.

Et modifiez le code en conséquence.

A+

Bonsoir à tous,

Désolé le problème est toujours présent

@+

 

[job75]

Re : bouton enregistrer

Bonjour Toubabou,

Désolé le problème est toujours présent

Allons allons il faut faire un effort pour comprendre !

Supprimez tout ce qu'il y a en colonne A à partir de A12.

Il ne faut pas de formule en A12 car l'entrée de données la copiait.

Fichier joint.

A+

 

[Toubabou]

Re : bouton enregistrer

Bonsoir Job75, Bonsoir à tous,

Super cela fonctionne!!!!! vous êtes un vrai Génie!

Un grand merci

Toubabou

 

[herve62]

Re : bouton enregistrer

Bonsoir
Slt Job ; Il sait je lui ai expliqué ( comme ma réponse au #9)
mais il y a une solution pour y parer (c'est fait)
Plus besoin de supprimer les formules en A
Mais bon comme je lui ai dit : Pourquoi Copier la Combo en A ? alors que cela CONCATENE B & C ????
A+

 

[job75]

Re : bouton enregistrer

Bonjour herve62,

Mais bon comme je lui ai dit : Pourquoi Copier la Combo en A ? alors que cela CONCATENE B & C ????

Comme je lui ai dit, les colonnes B et C sont totalement inutiles, donc à supprimer.

A+

 

[Toubabou]

Re : bouton enregistrer

Effectivement, vous avez raisons. Je suis un peu dur de la feuille et pour m'excuser, je vais invoquer le faite que je commence à m’intéresser au VBA et donc que je n'ai pas encore les bonnes réaction. Je viens de supprimer ces damnées cellules, mais nouveau soucis concernant mes cellules à cocher, je pense qu'il faut changer le code
@+

 

[herve62]

Re : bouton enregistrer

Re , JOB
Je lui ai aussi dit soit il rempli B et C séparé et concatène
Soit il met ( d'ailleurs sa Combo ne permet pas le choix ? ) tout en A
Et là Oui B & C > INUTILE
Bonne soirée A+

 

[Toubabou]

Re : bouton enregistrer

Re vous deux ,
je vais suivre vos conseils (ils ne peuvent qu'être bons)
Aidez moi juste pour changer le code une fois B et C supprimés.
Pourriez vous me conseiller un bon livre pour débutants en VBA?
@+

 

[herve62]

Re : bouton enregistrer

ahhaha !! c'est Fini tout ça !
c'est ce que j'ai fait en ............2000
Même Moi ( has been ) je suis sur la toile !
si tu restes Ici , tu pourras vite progresser ( comme moi)
Il y a plein de BARBA ... qui t'aideront
Les SUPER COURS ...tuto ..etc de notre ami JACQUES BOISGONTIER ( Hyper conseillé !!)
désolé si j'en oubli ( MISANGE pour les formules ....etc)

PS : lis mon dernier mp !

 

[job75]

Re : bouton enregistrer

Re,

Si au lieu de supprimer les colonnes B:C vous les masquez, pas besoin de modifier le code.

Cela vous évitera de vous fatiguer.

A+

 

[Toubabou]

Re : bouton enregistrer

Re,

Merci pour le conseil, je vais opter pour cette solution
@+

 

[herve62]

Re : bouton enregistrer

JOb !! , je rêve ?
AS tu déjà acheté un beefsteak ... le mettre au frigo et pas le manger ???
j'ai tout dis !!

 

[Toubabou]

Re : bouton enregistrer

Bonjour à tous ,
Je ne sais pas où j'ai fauté Mais c'est vraiment involontairement. Je vous prie de m'en excuser.
Jean Marie