Discussion :

[Qwazerty]

Salut
Le double Poste est volontaire, pour éviter de trop embrouiller le "client"

Alors du coup si tu reprend ton code de départ, la variable Public n'est plus nécessaire, puisque tu reste dans le même UserForm.

Tu peux donc écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton2_Click()
Dim Lig As Long
Dim ws As Worksheets
Set ws = Worksheets("Feuil1")
 
Lig = choix_nom.ListIndex
 
ws.Cells(Lig, 1).Value = Me.Nom.Value
ws.Cells(Lig, 2).Value = Me.photo.Value
ws.Cells(Lig, 3).Value = Me.Tph.Value
ws.Cells(Lig, 4).Value = Me.valmarch.Value
ws.Cells(Lig, 5).Value = Me.prixht.Value
ws.Cells(Lig, 6).Value = Me.livraison.Value
ws.Cells(Lig, 7).Value = Me.tva.Value
ws.Cells(Lig, 8).Value = Me.etattva.Value
ws.Cells(Lig, 9).Value = Me.prixttc.Value
ws.Cells(Lig, 10).Value = Me.ventemin.Value
ws.Cells(Lig, 11).Value = Me.venteestim.Value
ws.Cells(Lig, 12).Value = Me.ecart.Value
 
End Sub

++
Qwaz

[crashfire]

Ok merci

Mais le il me donne des erreurs

En mettant le code comme inscrit j'obtient une erreur
13 incompatibilité
En me surlignant: Set ws = Worksheets("Feuil1")

[Qwazerty]

Normal,

Code :

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

Dim Ws as worksheet

pas Worksheets

Worksheets représente une collection de Feuilles, alors que Worksheet represente une Feuille, contenue accessoirement dans une collection de Feuilles.

C'est le principe des objets et des collections

++
Qwaz

[crashfire]

Merci mais cela ajoute une nouvelle ligne plutot que de remplacer

[Qwazerty]

Salut

Code :

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

Lig = choix_nom.ListIndex + 2

Vu que tu utilises cette valeur majoré de 2 pour définir le contenu des tes contrôle, en effet il faut faire de même.
A moins que le contenu de Choix_Nom change en cours de route??

Il serait quand même intéressant de lire quelques tutoriels pour comprendre un minimum l'utilisation de Cells ou au moins lire l'aide.
Cells(x,y)
y => Représente le numero de la colonne
x => Représente le numero de la ligne

Si tu veux modifier la cellule A3, ca te donne x=3, y=A. Regarde ton tableau, et fait en sorte que la valeur de x (dans ton code Lig) corresponde au numéro de la ligne a modifier.
Si tu n'y arrive toujours pas, met ton fichier, je suis patient, mais bon la ça n'a aucun intérêt, ni pour toi ni pour moi.

++
Qwaz