Discussion :

[allondin]

Bonjour à tous,

Je fais appel à vos compétences afin de m'aider dans mon projet.
J'ai créé une macro ainsi que deux feuilles respectivement nommées 2017 et 2018.
Cette même macro apparait indépendamment sur chacune des feuilles.
Je souhaiterais que lorsque je lance la macro de la feuille 2017, les informations soient enregistrées dans la feuille 2017. Même chose pour 2016.
Hors, ma macro fait référence à la feuille 2017. Lorsque je lance la macro sur 2018, les infos s'enregistrent sur 2017...
Pouvez vous m'aider ?

D'avance merci
Didier

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub bt_quitter_Click()
Unload Me
End Sub
 
Private Sub cb_ajouter_Click()
 If Me.txtbl = "" Then
    MsgBox "saisir un no de pièce"
    Me.txtbl.SetFocus
    Exit Sub
  End If
  Set f = Sheets("2017")
  ligne = f.[A65000].End(xlUp).Row + 1
  f.Cells(ligne, 3) = Me.txtref
  f.Cells(ligne, 2) = Me.txtdate
  If IsNumeric(Me.txtbl) Then f.Cells(ligne, 1) = CDbl(Me.txtbl)
  If IsNumeric(Me.txtqte) Then f.Cells(ligne, 4) = CDbl(Me.txtqte)
  f.Cells(ligne, 5) = Me.txtdes
 
  raz
  Me.txtbl.SetFocus
 
End Sub
Sub raz()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
  Me.txtbl.SetFocus
End Sub

[halaster08]

Bonjour,

Concernant les fichiers joints http://www.developpez.net/forums/d84...s-discussions/

Met plutôt ton code (avec la balise code (bouton #)).

[Invité]

Bonjour,

Je n'ai pas ouvert votre fichier, mais voilà une solution à essayer en passant par une procédure paramétrique si les traitements sont identiques comme dans la macro MonCodeTransverseATousLesOnglets ci-dessous.

Cette macro est placée dans un module standard.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub MonCodeTransverseATousLesOnglets(ByVal MonOnglet As Worksheet)
 
    With MonOnglet
 
         'Code....
 
    End With
 
End Sub

Ensuite, vous pouvez la mettre en oeuvre d'où vous voulez en lui indiquant l'onglet à traiter comme ci-dessous :

Code :

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

1
2
3
4
5
6
7
 
Sub TestMonCodeTransverseATousLesOnglets()
 
    MonCodeTransverseATousLesOnglets Sheets("2017")
    MonCodeTransverseATousLesOnglets Sheets("2018")
 
End Sub

Cordialement.