Problème pour Modifier donnée via un Userform

[NICOALBERT]

Bonsoir le forum,

Je viens vers vous car j'ai un userform avec listBox , je clique sur une ligne et les informations sont inscrite dans les TextBox jusque la tout va bien c'est lorsque je veut modifier c'est donner que je clique sur modifier sa ne marche pas.

Est ce que quelqu'un peu m'aider, merci d'avance.

Cordialement NICOALBERT.

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

Bonjour,

Modifie ton code
1) ajoute les deux dernières lignes dans cette procédure

Private Sub CommandButton2_Click()
Dim Lig As Long
' Stop
If OptionButton2 = True Then
Index = ListBox1.ListIndex + 4
With Sheets("BRACELET")
.Cells(Index, 1).Value = TextBox11 ' REF
.Cells(Index, 2).Value = TextBox12 ' DESIGNATION
.Cells(Index, 3).Value = TextBox13 ' PA HT
.Cells(Index, 4).Value = TextBox14 ''''''''''''''''''' EFFACE FORMULE PA TTC
.Cells(Index, 5).Value = TextBox15 ' PV TTC
.Cells(Index, 6).Value = TextBox16 ''''''''''''''''''' EFFACE FORMULE MARGE
.Cells(Index, 7).Value = TextBox17 ' ENTREE
.Cells(Index, 8).Value = TextBox18 ' SORTIE
.Cells(Index, 9).Value = TextBox19 ''''''''''''''''''' EFFACE FORMULE STOCK
.Cells(Index, 10).Value = TextBox20 ''''''''''''''''''' EFFACE FORMULE BENEF
.Cells(Index, 11).Value = TextBox21 ' PRET
.Columns("A:K").AutoFit
End With
End If

Me.OptionButton2 = False
EffaceConTrol Me

Me.ListBox1.Clear
Me.ListBox1.List = Range("A4:l" & derligne).Value

End Sub


Ajoute =0 dans Private Sub ListBox1_Click()

If ListBox1.ListIndex >= 0
Ajoute cette procédure à la fin

Private Sub UserForm_initialize()
derligne = Sheets("BRACELET").Range("A65536").End(xlUp).Row
Me.ListBox1.List = Range("A4:l" & derligne).Value
End Sub

a+

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

... et supprime la source dans les propriétés de la listbox1 BRACELET!A:K400

 

[NICOALBERT]

Re : Problème pour Modifier donnée via un Userform

Bonjour CHALET53,

Tout d'abord je te remercie pour le temps que tu as pris pour m'aider, mais j'ai encore un soucis j'ai pris le code que tu m'a donné et je l'ai mis dans le code du fichier mais lorsque je veut l'exécuter il m'affiche "Erreur d'execution 70😛ermission refuser".

As tu une idée de ce problème.

A+

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

Re,

Je ne peux t'envoyer le fichier modifié (trop gros : je n'ai pas l'accès au-dessus de 50 Ko)
Tu repostes le fichier avec tes modifs et je regarde (ou tu me donnes un adresse via messagerie privée) pour t'adresser le fichier que j'ai modifié
à suivre

 

[NICOALBERT]

Re : Problème pour Modifier donnée via un Userform

Re,

Voici le fichier modifier.

Merci d'avance
A+

 

[NICOALBERT]

Re : Problème pour Modifier donnée via un Userform

Re,

Juste pour info je ne suis pas chez moi et je travaille avec une version 2007 ,alors que moi je travail habituellement avec une version 2003 ,le problème vient peut être de la!!

A+

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

Pas sûr : je suis en 2007
un fichier 2003 fonctionne en général sans problème en 2007
A priori rien de très spécifique dans ce que tu as fait

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

Quand on est en 2007

Faire enregistrer sous : excel 97 / 2003

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

Re,

Il reste deux choses à faire dans le fichier
Définir la variable derligne tout en haut du code de l'userform : dim derligne as integer
dans la propriété listbox1 du userform : remetre à blanc RowSource

J'avais également le même message

a+

 

[laetitia90]

Re : Problème pour Modifier donnée via un Userform

bonjour NICOALBERT , CHALET53
une version simplifier
j'utilise rarement RowSource trop "chiant" a manipuler le seul avantage c'est les entetes
mais c'est bien le seul !!! les entetes on peut les faire avec des textbox ou label en dessus
ou eventuellement utiliser une ListView pour faire beau a eviter sur des grandes plages de données "gourmand" en resources & lenteur chargement

 

[NICOALBERT]

Re : Problème pour Modifier donnée via un Userform

Bonjour le forum , bonjour Laetiti 90,

je t remercie pour ton fichier qui fonctionne très bien , mais j'ai un petit soucis c'est qu'il ne me copie pas les formule comme dans les fichier posté précédement.

A+

 

[CHALET53]

Re : Problème pour Modifier donnée via un Userform

bonjour,
C'est normal étant donné la méthode utilisée : recopie des données de la zone renseignement
Il fallait (peut être) rappeler la règle : Leatitia n'a pas analysé le contenu de chaque cellule (j'avais fait la même erreur)
Il faut modifier les boucles pour ne pas réécrire les cellules calculées
a+

 

[laetitia90]

Re : Problème pour Modifier donnée via un Userform

re, 🙂
effectivement j'avais pas vu les formules 🙁
je vois pas bien l'interet de les recopier mais bon!!
une autre version