Problème de retranscription de donnée après modif de celle-ci avec userform

[ptittitine]

Bonjour tout le monde!!

j'avance surement mais doucement sur mon projet. Mais là je coince encore une fois.

Voilà le principe, via un userform, j'encode des données qui vont se mettre dans une feuille récap excel ligne après ligne. Le truc c'est qu'on doit pouvoir modifier les données de n'importe quelle ligne via le userform. Jusque là j'ai plus ou moins réussi. Là où ça coince c'est que les modifications doivent apparaitre dans la ligne modifiée et pas dans une nouvelle ligne. Voilà le code que j'ai utilisé:

Sub Bouton9_Clic()
Sheets("Récap").Select
If ActiveCell <> "" And ActiveCell.Row > 2 Then
MesVal = Array("ComboBox2", "TextBox1", "ComboBox1", "ComboBox3", "ComboBox4", "TextBox2", "TextBox3", "ComboBox5", "TextBox4", "TextBox5", "TextBox6", "ComboBox6", "ComboBox7", "ComboBox8", "TextBox7", "ComboBox9", "TextBox8")
MaLig = ActiveCell.Row
For I = 0 To UBound(MesVal)

UserForm1.Controls(MesVal(I)).Text = Sheets("Récap").Cells(MaLig, I + 1)
Next
UserForm1.CommandButton1.Visible = True

Else
MsgBox "Selectionner une fiche !"
End If
'Sheets("Feuille de saisie").Select

UserForm1.Show

End Sub

Quelqu'un a-t-il une idée du pourquoi une nouvelle ligne se créer au lieu de modifier la ligne en question?

Merci pour votre aide!!!!

Titine

 

[Victor21]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour, Titine.

Je vois que le projet avance.

(MaLig, I + 1)
est juste en-dessous de (MaLig,I)

 

[ptittitine]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour Victor21!!!

Et oui, doucement mais surement!! Mais j ai encore un opeu de mal à comprendre certains code.

J'ai essayé de remplacer (MaLig, I+1) par (MaLig,I) mais ca ne fonctionne pas

Que dois-je faire?

Mciiii

 

[jp14]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour

Pour être sur d'écrire dans la ligne désirée, le plus simple est de mémoriser la ligne de la cellule active (ActiveCell.Row) dans un label (visible dans la période de mise au point) et d'utiliser cette valeur pour la mise à jour.

cells(MaLig, I + 1) Malig numéro de ligne, I numéro de colonne

JP

 

[ptittitine]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour JP14,

merci pour votre réponse.
Bon, vous allez croire que je suis un peu blonde, mais je fais vraiment mes 1ers pas en vba (depuis quelques jours) et j ne vois pas comment appliquer votre conseil concrètement. Je suis un peu gênée

 

[ptittitine]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Pffff je sèche, ... j'ai de la fumée qui me sort des oreilles

Quand j'essayue d'intégrer vos conseil à mon code, j'ai d'autres trucs qui ne fonctionnent plus!

 

[MJ13]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour Ptittitine, JP, Oh Victor pas vu

ptittitine: C'est pas pour dire mais quand je vois Userform dans le code, il vaut mieux avoir le fichier qui va avec, surtout quand on débute

 

[ptittitine]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour MJ13,

en fait, le fichier est trop gros et je ne sais pas le compresser du boulot, pas de programme!!!
Sorry

 

[Victor21]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Re, Titine

Clic droit sur le fichier, envoyer vers, dossier compressé.
En prime je joins un fichier, transmis je crois par Modeste, pour faire subir une cure d'amaigrissement à ce fichier.

 

[ptittitine]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

merci Victor21 mais le plus petit que j'arrive à obtenir est un fichier de 53ko, toujours trop gros pour le forum

 

[kjin]

Re : Problème de retranscription de donnée après modif de celle-ci avec userform

Bonjour le fil,
Ton fichier est Lien supprimé car je considére que c'est la suite de ce fil
A+
kjin