Discussion :

[totor6789]

Bonjour Forum,

J'ai un userform "Fournisseur" dans lequel je rentre des données.
Pour chaque ligne de mon tableau, j'ouvre un userform via :

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'permet de réafficher le userform et rempli les champs
'la macro repère le click (Target)
  Cancel = True
If Target.Column = 42 Then 
 
  Fournisseur.OT.Value = Sheets("bilan").Range("B" & Target.Row).Value
  Fournisseur.Combo1.Value = Sheets("bilan").Range("DA" &Target.Row).Value 
  Fournisseur.Text1.Value = Sheets("bilan").Range("DB" & Target.Row).Value
   ...etc...
  Fournisseur.Show
 
End If
 
End Sub

Jusque là tout va bien..
Ensuite je met un bouton "Enregistrer" sur mon userform.
J'aimerais que son utilisation me permette :
- de repérer la ligne (Target Row) que le userform concerne et d'enregistrer les données (effacer les précédentes et inscrire les nouvelles) dans les colonnes (DA, DB,...etc..).

Ca me paraît pas bien compliqué, mais je ne sais pas comment m'y prendre pour le repérage, l'effacement des données pré rentrée et l'incription des nouvelles.

Merci pour votre aide!

[COCONUT2]

de repérer la ligne (Target Row) que le userform concerne

Le mieux est que ton targetrow soit une variable public (déclarée tout en haut de la page) et que tu la récupère directement dans ta macro d'enregistrement.

et d'enregistrer les données (effacer les précédentes et inscrire les nouvelles) dans les colonnes (DA, DB,...etc..).

le fait de réécrire dans les cases va effacer les écritures précédentes

Code :

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

cells(targetrow, 2)=combobox1

par exemple

[totor6789]

merci pour la réponse,

J'ai déclaré Public Target As Range

Ensuite :

Code :

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

1
2
3
4
5
6
Private Sub Enregistrer_Click()
'enregistre les données renseignées dans le userform dans le tableau bilan
 
Sheets("bilan").Range("DA" & Target.Row).Value = Fournisseur.Text1.Value
 
End Sub

J'ai un message d'erreur "Objet requis".
Je ne comprends pas pourquoi?

[COCONUT2]

Pourrais tu mettre l'ensemble du code ?

[totor6789]

Dans la feuille "bilan" (Microsoft Excel Objets) :

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
Public Target As Range
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'permet de réafficher le userform et rempli les champs
'la macro repère le click (Target)
  Cancel = True
If Target.Column = 42 Then 'si le click se trouve dans la colonne 42 (AP)
 
  Fournisseur.OT.Value = Sheets("bilan").Range("B" & Target.Row).Value
  Fournisseur.Combo1.Value = Sheets("bilan").Range("DA" &Target.Row).Value 
  Fournisseur.Text1.Value = Sheets("bilan").Range("DB" & Target.Row).Value
 
  Fournisseur.Show
 
 
End If
 
End Sub

Dans le userform "Fournisseur" :

Code :

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

1
2
3
4
5
6
Private Sub Enregistrer_Click()
'enregistre les données renseignées dans le userform dans le tableau Bilan
 
Sheets("bilan").Range("DB" & Target.Row).Value = Fournisseur.Text1.Value
 
End Sub

C'est tout pour le moment..!

[totor6789]

En fait je n'arrive pas à récupérer Target dans

Private Sub Enregistrer-Click()

Comment récupérer ma variable dans un private sub?