Supprimer,Modifier Ligne avec Multipage dans un Usf

[MuscatMimi]

Bonjour a toutes et a Tous

Dans le fichier joint, j'aimerais pouvoir supprimer une ligne
ou supprimer une ligne dans ma base de données
mais avec un Usf et un Multipage, je sais pas faire
Avec ListView ou ListBox , je sais faire
mais avec un multipage , la ,suis perdu

Merci a tous a l'avance de votre aide précieuse

cordialement

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Bonjour pas tout compris pour le multipage.........
Mais bon pour les boutons modifier et supprimer voici le code:
Bouton modifier:

If Me.ComboBox5.ListIndex = -1 Then Exit Sub
WS.Range("a" & Me.ComboBox5.ListIndex + 3) = CBxNom
WS.Range("b" & Me.ComboBox5.ListIndex + 3) = TextBox2
WS.Range("c" & Me.ComboBox5.ListIndex + 3) = TextBox1
WS.Range("d" & Me.ComboBox5.ListIndex + 3) = TextBox3
WS.Range("e" & Me.ComboBox5.ListIndex + 3) = TextBox4
'ECT.........................

Pour le bouton supprimer

If Me.ComboBox5.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection

With WS
.Rows(Me.ComboBox5.ListIndex + 3).EntireRow.Delete
End With

A++

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Bonjour roro69

merci pour ta réponse

pour le Btn Supprimer, la, OK

Mais pour le code Modif, ça fonctionne pas

A++++++++++
Cordialement


Roro69 cç y es ,j'y suis arrivé ,
je dois pas être assez réveillé ,
ou le cerveau qui ce ramolli

Merci encore de ton aide
passe un bon dimanche

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

RE ;
peut tu me dire dans quelle feuilles tu modifies;est-ce essai ou Modèle
A+++

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Rebonjour
Je viens de parcourir un peu ton code;Il faudrait que tu regardes au niveau de ta combo5
Tu la remplis deux fois une fois dans forminitialize et une fois dans la procédure ini.Il faudrait la remplir que depuis ta procédure ini et démarer ta boucle à la bonne ligne!
A++

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

re roro69,
Merci de ton aide
j'avoue vraiment pas y arriver,
ces des codes que j'ai adapté du mieux que j'ai pu, mais la j'avoue
pas comprendre
ce doit être la vieillesse je pense

a+++++++

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Re bonjour vaucluse
N'ayant pas vu ton edit j'ai repris un peu ton fichier donc je te le met quand même ;j'ai changer un peu la façon de charger les textbox
A++
Si tu souhaites plus n'hésite pas

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Bonsoir ror69 et le forum

Bravo , superbe modif,
le code est beaucoup plus avec ta version
ça je savais pas faire

Merci beaucoup de ton aide précieuse, et le temps que tu a passé
surtot un dimanche

Pour l'instant , tout est fini pour cette partie Fournisseurs,me rest a gérer
les produits, liste, total stock, stock mini,alerte sur stock mini etc
partie assez compliquée

Si j'ai besoin je te ferais , signe

Bonne soirée a bientôt
Cordialement

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

exciuse moi de te déranger a nouveau,
mais je viens de essayer le classeur dont tu afait des modifs,je viens de voir que la "CBxNom" ne ce valide pas en "Modification"

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

Re désolé
A rajouter dans la procédure du bouton modifier:

CBxNom = WS.Range("A" & Me.ComboBox5.ListIndex + 3)

A++

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

j'ai déja essayé cela , sans résultat

 

[roro69]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

houla j'ai le cerveau ramolli moi!!!!!!!!!!!
Excuse moi voici le code:

WS.Range("A" & Me.ComboBox5.ListIndex + 3) = CBxNom

Faire la meme chose pour les autres combos
si on modifie c'est dans la feuille lol!!!!

 

[MuscatMimi]

Re : Supprimer,Modifier Ligne avec Multipage dans un Usf

merci c'est PK
tu vois tu est comme moi ce matin, le cerveau dans l'au dela

bonne soirée , et merci pour tout
A++