Discussion :

[Chris171717]

Bonjour,

Je viens vous solliciter pour le souci suivant :

j'ai un userform4 avec une listbox1 dans laquelle je peut selectionner une ligne pour modification... au clic sur "Modifier" (CommandButton4), j'envoi les données correspondantes dans userForm10 en répartissant dans des textbox.

Seulement lorsque je fais une modification et que je valide, j'affiche un message de vérification avec les anciennes et nouvelles données pour chaque textbox...

Le Problème --> il m'affiche bien les nouvelles valeurs, mais pas les anciennes et je n'arrive pas à la faire mémoriser...

j'utilise ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    With Me
        Nom = .TextBox1
        Prenom = .TextBox2
        Classe = .TextBox3
        Motif = .TextBox4
        Personne = .TextBox5
        Retenue = .TextBox6
        Envoi = .TextBox7
        Travail = .CheckBox1
    End With

[ESVBA]

A quoi correspondent les valeur nom, etc...

Place les anciennes valeurs dans la propirété "TAg" des textbox et compare.

Explique nous mieux.

ESVBA

[Chris171717]

Chaque valeur correspond une colonne dans une ligne de ma listbox

j'envoie bien les données où je veux mais c'est après, pour faire la comparaison entre les valeurs qui avaient été renvoyées et les nouvelles que je rentre à la place, que j'ai un souci...

pour mettre une valeur dans Tag, il faudrait que ça reste la même tout le temps non !?

[keygen08]

Bonjour

As tu essayé en enregistrant les anciennes valeurs sous forme de variable genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public nom ancien as string
 
userform initialize
Nomancien = range("a1")
listbox1=nomancien
 
Private sub commandbutton('avant enregistrement)
listbox1ancien = nomancien
listbox1nouveau = Nomnouveau 
 
Privatesub commandbutton('enregistrement)
Range("a1")=nomnouveau

[Chris171717]

Private sub commandbutton('avant enregistrement)
listbox1ancien = nomancien
listbox1nouveau = Nomnouveau

Est-ce que ça peut vouloir dire dans le userform qui envoi les infos à l'autre... !?

[ESVBA]

Voici la structure de code à laquelle je pensais :

Code Formulaire "UserForm4" avec la ListBox1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ListBox1_Click()
    UserForm10.TextBox1.Tag = ListBox1.List(ListBox1.ListIndex, 1)
    UserForm10.TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 1)
 
    UserForm10.TextBox2.Tag = UserForm4.ListBox1.List(ListBox1.ListIndex, 2)
    'Etc...
End Sub

Code :Dans Formulaire "UserForm10" avec les textBox :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CommandButton4_Click()  'Bouton modifier
    If TextBox1.Text <> TextBox1.Tag Then  'Si texte actuel <> Ancienttexte alors
        '--
    End If
 
     'Etc...
End Sub

ESVBA

[keygen08]

Oui, une fois la variable declaré en public les valeurs sont capable de passer d'un userform sur l'autre.
Il est trés difficile de te repondre sans connaitre le procédé exact que tu veux utiliser.

Les ancienne et nouvelle valeurs s'affiche t'elle dans des textbox differente dans un meme userform ou simplement à l'aide d'un messagebox.
Tu n'avais il me semble qu'une feuille dans ton classeur donc je suppose que la nouvelle valeur vas prendre la place de l'ancienne valeur sur cette meme feuille.
Je pense donc qu'il te faut extraire A de la feuille pour charger le textbox, le modifier en B.
montrer a l'utilisateur le remplacement a effectuer donc, a ce que j'ai compris, charger un nouveau userform avec les valeurs A et B dans des textbox different, puis, lors de la validation envoyé B vers ta feuille.
Pour cela je charge des variable a l'ouverture de mon premier userform qui passeront dans le 2 userform lors de l'affichage de celui-ci.

[Chris171717]

Les ancienne et nouvelle valeurs s'affiche t'elle dans des textbox differente dans un meme userform ou simplement à l'aide d'un messagebox.

En fait... les anciennes valeurs s'affichent dans le userform via autant de textbox que de valeurs...

Je modifie ces valeurs à la place dans le même texbox...

Ensuite un message me permet de comparer avant/après...