Userform -Encodage Données

[jorisphi]

Bonjour à tous,

Je demande de l’aide pour mon encodage d’une base de données
Lorsque j’encode ma 1ère ligne, tout marche bien
Cependant, pour la 2ème ligne, il enregistre sur la 1ère ligne et efface donc mon encodage précédent

Pourriez-vous m’aider ?....
Un tout grand merci pour votre aide
Cordialement
Jorisphi

PS : Si vous voyez une meilleure façon de faire, je suis preneur

 

[jp14]

Re : Userform -Encodage Données

Bonjour

ReBonjour JP
-Lorsque le USF s'affiche pour "Modifier" j'aimerais que le Bouton "Supprimer" n'apparaisse pas
-Lorsque le USF s'affiche pour "Supprimer" ,j'aimerais que le Bouton "Modifier" n'apparaisse pas
Merci d’avance
Cordialement
Jorisphi

Concernant l'obligation de remplir les textbox il faut finir d'écrire le code.
'If controldonne(2, Me.TexEtnumero du textbox) = 1 Then Exit Sub

Pour les boutons
Si j'ai bien compris dans la feuille on doit avoir un bouton "créer/modifier" et un bouton "Supprimer".

JP

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP, Merci

Voilà :
-Lorsque je clique sur le bouton "MODIFIER" , 2 Boutons apparaissent en bas: "SUPPRIMER" & "MODIFIER". J'aimerais que le bouton "SUPPRIMER" ne soit pas visible, car l'utilisateru est en train de modifier une donnée

-Lorsque je clique sur le bouton "SUPPRIMER" , 2 Boutons apparaissent en bas: "SUPPRIMER" & "MODIFIER". J'aimerais que le bouton "MODIFIER" ne soit pas visible, car l'utilisateur est en train de SUPPRIMER une donnée


Quant à l'obligation de remplir les textbox, je l'avais trouvé et supprimé de mon Post
Mais vous l'aviez déjà ouvert .Milles excuses

J'ai remis les boutons en haut de page et fait un semblant de mise en page
J'ai cherché, mais c'est trop pointu pour moi, la ligne des entêtes se supprime maintenant
lors d'une création de données (Voir fichier joint)
Pouvez-vous regarder?? Merci d'avance

J'ai vu aussi qu'un Tri fonctionne sur les colonnes 1 et 2
Magnifique !.......Mieux que ça , impossible !.......

Très Très cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonsoir

Ci joint le fichier modifié.

A tester

JP

 

[jorisphi]

Re : Userform -Encodage Données

Très Cher JP,

Je le crie Haut et Fort : « Vous êtes un « ORFEVRE » !.........
D’un vulgaire « Caillou », vous en avez fait un « Diamant » !........

Encore mille fois MERCI MERCI !.......

Maintenant, je vais vous laisser en paix, car vous avez eu beaucoup de patience avec moi
De mon côté, je vais continuer mon projet

A Bientôt, si vous le voulez bien
Très Très Cordialement

Jorisphi

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP, Bonjour

J’ai encodé ce WE ma base données, et cela Marche à merveille !......

2 Petits réglages encore et tout sera OK

Sans vous faire perdre votre temps précieux et pour une question de convivialité,
j’ai créé 2 nouveaux boutons
-Dupliquer
-Recherche

Seriez-vous encore d’accord de m’aider ?.......
Encore un TOUT TOUT Grand merci

Bonne journée
Cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonjour

Ci joint le fichier à tester
J'utilise un listview pour afficher le résultat de la recherche.
un click sur la colonne permet de trier la listview.

JP

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP, Bonjour

Grand merci pour votre réponse
Je vois que je vous fais travailler. J’espère ne pas vous faire perdre votre temps
Voilà, j’ai testé.

J’ai bien rajouté le contrôle supplémentaire « ListView »
Mais j’ai une erreur. Fausse manœuvre de ma part ?...
Quant au bouton « Duplicate », il s’arrête sur la variable « i »
J’explique cela en détail dans mon fichier annexe

Grand merci pour votre patience
Très cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonjour

Code à corriger pour l'userform pour dupliquer

Private Sub ButtonValider_Click()
Dim lig1 As Long, lig2 As Long
[COLOR="Red"]Dim i As Long[/COLOR]
If ComboBox1.ListIndex = -1 Then Exit Sub
..........................................
For i = 3 To 16
[COLOR="Red"].Cells(lig2, i) = .Cells(lig1, i)[/COLOR]
...............................
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Niveau.ListIndex = -1
Me.ComboBox2.ListIndex = -1
End Sub

Les copier coller pose parfois des problèmes

Private Sub ComboBox2_Change()
.........................
    For Each Cellule In Sheets(Nomfeuille1).Range("a3:a" & Sheets(Nomfeuille1).Range("a65536").End(xlUp).Row)
        If Cellule = [COLOR="Red"]ComboBox2[/COLOR] Then
...........................................

End Sub

Concernant la listview il faut qu'elle soit présente dans l'userform, ce qui n'est pas le cas.
Il faut cocher microsoft listview dans les contrôles supplémentaires et cocher au niveaux des références Microsoft windows common controls 6.

https://www.excel-downloads.com/threads/incompatibilite-de-type.136141/


JP

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP

Grand merci pour votre réponse


Concernant le bouton « Duplicate », il me donne bien maintenant les données correspondantes aux différents niveaux. Merci
Cependant, lorsque je clique sur « Valider », il ne me donne pas la main et rien ne s’ajoute
(Peut-être aussi un MSG si la fiche existe déjà ?...et refuser la duplication ?....)

Quant à la ListView,
Je ne sais pas ce qu’il se passe, mais j’ai toujours l’erreur avec le Listview
J’y perd mon latin
Pourtant
- Dans VBA/ Outils / Référence, le MS Common Control 6.0(SP6) est bien coché maintenant
- Lorsque je clique sur mon USF Recherche, la boite contrôle « Outils complémentaires » s’affiche et j’ai bien Coché « ListView » et « MS ListVieuw Control 6.0 »
Est-ce comme cela que je dois faire ?
Ou ai-je mal compris ou fais une mauvaise fausse manip ?
J'ai même redemarrer mon PC

Voici les PrintScreen des contrôles que j'ai ajoutés



Encore Grand merci pour ….votre patience et votre aide
Très Cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonjour

Une remarque
Pour dupliquer les zones de D à P il faut que les zones dans A et B soient remplies.

Il manque la listview dans l'userform, le système ne trouvant pas la listview il indique une erreur.

Ci joint le fichier avec la listview à importer.

JP

 

[jorisphi]

Re : Userform -Encodage Données

Bonjour JP

J'ai encore essayé, mais je n'arrive toujours pas à importer les fichiers frm et frx
Pouvez-vous me le renvoyer sous un autre format ?...

Merci pour votre patience

Très cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonjour

Pour importer ce fichier
Extraire les fichiers
Dans l'éditeur VBA
Menu "fichier"
Option "Importer"
Sélectionner le sous répertoire qui contient l'userform
Il faut auparavant soit modifier le nom l'userform soit supprimer le fichier en utilisant l'option qui est disponible dans le menu fichier.

JP

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP

Vous êtes comme mon papa. Vous êtes dur avec moi (…)

Pour ne pas vouloir vous importuner encore une fois, j’ai essayé hier toute la soirée, et encore maintenant, mais ….je n’arrive pas. (Pourtant je suis vos instructions)
Je me réjouissais d’avoir votre post, mais que faire ?....

Concernant le « DUPLICATE », j’ai compris pourquoi il ne me donne pas la main pour valider : le code me copie les paramètres d’un niveau sur un niveau demandé en supprimant les paramètres de celui-ci
Mais je me suis mal exprimé, j’aurai du dire « Dupliquer sur une nouvelle fiche »
Excusez-moi, mea Culpa.

Voilà, ce que j’aurai aimé :
Je prends le niveau X et sa fiche X, et je crée une nouvelle fiche
- sur le niveau Y
- avec une nouvelle fiche Y
tout en prenant les paramètres de la fiche X (Colonnes «C à P »)

Encore mille fois merci pour votre aide, Car je tiens à cœur ce projet
Très Cordialement
Jorisphi

 

[jp14]

Re : Userform -Encodage Données

Bonjour

Ci joint le fichier demandé.
J'ai rajouté une option pour la copie d'une fiche qui reprend l'userform de base.

A tester

Jp

 

[jorisphi]

Re : Userform -Encodage Données

Cher JP bonjour

SUPER Génial votre bouton « Duplicate »
On peut visualiser et contrôler la fiche avant de la dupliquer et éviter ainsi une erreur
Je n’y avais pas pensé
Si vous avez encore de telles idées, je suis toujours preneur

Quant au bouton « recherche », il me fait maintenant un débogage sur Load UsfRecherche

Sub Boutonrecherche()
Load UsfRecherche
UsfRecherche.Show
End Sub

J’ai cherché et séché mais je n’ai pas trouvé
Pouvez-vous regarder ..... Avec des yeux de Pro ?

Très cordialement
Jorisphi