Discussion :

[crashfire]

Bonjour,

J'ai un userform qui me permet d'afficher les données de ma Feuil

J'ai mis un bouton pour pouvoir enregistrer les modifications

soit:

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
Private Sub CommandButton2_Click()
Dim Lig As Long
Dim ws As Worksheets
Set ws = Worksheets("Feuil1")
 
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

A chaque fois j'obtien une erreur "91" sur

Code :

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

ws.Cells(Lig, 1).Value = Me.Nom.Value

J'ai lu plusieurs poste et l'aide mais je n'arrive pas as identifier le probleme.

Pourriez vous m'aider? Merci

[tedo01]

Bonjour,
La variable Lig n'est pas initialisée... Qu'est-ce qu'elle est sensée contenir ?

[pgz]

Bonsoir.

Avec le code que tu donnes, Lig vaut 0, et la ligne 0 n'existe pas.

Cordialement,

PGZ

[crashfire]

Je ne suis pas très bon en VBA

J'avoue être complètement perdu. De se que j'ai compris "Lig" me permet d'écrire sur une ligne et qu'il reste a définir la colonne par son numéro.

[fring]

Bonjour,

JDe se que j'ai compris "Lig" me permet d'écrire sur une ligne et qu'il reste a définir la colonne par son numéro.

Oui c'est bien ça mais, comme l'ont signalé pgz et tedo01, si tu n'attribues pas de valeur à ta variable "Lig", par défaut Lig = 0
Donc ws.Cells(Lig, 1) correspond à ws.Cells(0, 1) et la ligne 0 n'existe pas, d'où le plantage.

Essaie ceci

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
Private Sub CommandButton2_Click()
Dim Lig As Long
Dim ws As Worksheets
Set ws = Worksheets("Feuil1")
Lig = 10
 
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

[crashfire]

ok je comprend le logique
Mais en definissant Lig=1 vas t il ecrire sur la premiere ligne?
Car moi je voudrais qu'il remplace les donner que j'ai modifier et cela peux etre sur n'importe qu'elle ligne

[mercatog]

Il faudrait déclarer Lig en début de module (variable globale)
Comment tu récupère les données dans ton userform à partir de ta feuille pour les modifier?
Si c'est ça, tu affecte à Lig la valeur de la ligne à modifier, tu fais tes modifs et le ré enregistrement se fera au bon endroit