Erreur dans le code

Version imprimable

1 pièce(s) jointe(s)

Erreur dans le code

Bonjour, alors j'essai de renseigner des cellules avec des valeurs selon des conditions. Grâce à une aide j'ai reussi à adapter le code à ce que je veux, juste que je n'arrive pas à loger le montant que je renseigne dans la bonne cellule. Voici le code et je joint le fichier pour meilleur comprehension

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50



Private Sub CommandButton1_Click()
End
End Sub

Private Sub CommandButton2_Click()
Dim X As String
Dim I As Long
X = UserForm1.ComboBox1.Value
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox ("Veuillez remplir tous les champs pour continuer")
Exit Sub
End If
If MsgBox("Etes-vous certain de vouloir enregistrer ces nouveaux données ?", vbYesNo + vbInformation, "Demande de confirmation") = vbYes Then
With Sheets(X)
I = Sheets(X).Range("A:A").Find(TextBox1.Value).Row
If ComboBox2.Value = "Especes" Then .Range("E" & I ).Value = CDbl(TextBox2.Value)
If ComboBox2.Value = "Virement" Then .Range("F" & I ).Value = CDbl(TextBox2.Value)
If ComboBox2.Value = "Carte Bancaire" Then .Range("G" & I ).Value = CDbl(TextBox2.Value)
End With
End If
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""

End Sub

Private Sub UserForm_Initialize()
Dim Ws As Worksheet
ComboBox1.Clear
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "TB" Then
            ComboBox1.AddItem Ws.Name
        End If
    Next Ws
    
Dim Plage As String
With Sheets("TB")
    Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox2.RowSource = "TB!" & Plage

TextBox1.Value = Now()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")

End Sub

Je pense que l'erreur vient de la partie en jaune
Merci d'avance

bonjour,

Code:

I = Sheets(X).Range("A:A").Find(Val(TextBox1)).Row

pour une date existante, mais si la date n'existe pas ?, je pense qu'il faut passer I en range "Dim I as Range" donc "Set I = ....."

Code:

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
Private Sub CommandButton2_Click()
Dim X, C As String
Dim I As Range
X = UserForm1.ComboBox1.Value
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox1.Value = "" Or TextBox2.Value = "" Then
  MsgBox ("Veuillez remplir tous les champs pour continuer")
  Exit Sub
End If
If MsgBox("Etes-vous certain de vouloir enregistrer ces nouveaux données ?", vbYesNo + vbInformation, "Demande de confirmation") = vbYes Then
  With Sheets(X)
    Set I = Sheets(X).Range("A:A").Find(Val(TextBox1))
    If Not I Is Nothing Then
      If ComboBox2.Value = "Especes" Then .Range("E" & I.Row & C).Value = CDbl(TextBox2.Value)
      If ComboBox2.Value = "Virement" Then .Range("F" & I.Row & C).Value = CDbl(TextBox2.Value)
      If ComboBox2.Value = "Carte Bancaire" Then .Range("G" & I.Row & C).Value = CDbl(TextBox2.Value)
      ComboBox1.Value = ""
      ComboBox2.Value = ""
      TextBox1.Value = ""
      TextBox2.Value = ""
    Else
      'ton traitement pour ajouter éventuellement la date
    End If
  End With
End If
End Sub

Bonjour le fil, bonjour le forum,

Que se passera-t-il si tu as deux fois la même date dans un même onglet ?...

Ton code modifié et simplifié :

Code:

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
38
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
 
ComboBox1.Clear
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "TB" Then
        ComboBox1.AddItem Ws.Name
    End If
Next Ws
With Sheets("TB")
    ComboBox2.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With
TextBox1.Value = Format(Date, "dd/mm/yyyy")
End Sub
 
Private Sub CommandButton2_Click()
Dim O As Worksheet
Dim LI As Long
Dim DA As Range
 
Set O = Sheets(Me.ComboBox1.Value)
If ComboBox1.Value = "" Or ComboBox2.Value = "" Or TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox ("Veuillez remplir tous les champs pour continuer")
    Exit Sub
End If
If MsgBox("Etes-vous certain de vouloir enregistrer ces nouvelles données ?", vbYesNo + vbInformation, "Demande de confirmation") = vbYes Then
    Set DA = O.Range("A:A").Find(Date)
    If DA Is Nothing Then MsgBox "Date non trouvée !": Exit Sub
    LI = DA.Row
    O.Cells(LI, Me.ComboBox2.ListIndex + 5).Value = CDbl(TextBox2.Value)
End If
Unload Me
UserForm1.Show
End Sub
 
Private Sub CommandButton1_Click()
Unload Me
End Sub

18/03/2016, 12h24
Dr_lietman

Casefayere, t'es merveilleux! C'est exactement ce dont j'avais besoin. Je vais juste y rajouter une erreur au cas où la date n'existe pas la table

Merci mille fois!:mouarf::D
18/03/2016, 12h28
casefayere

Merci mais tiens compte de la reflexion à Thautheme

Citation:

Que se passera-t-il si tu as deux fois la même date dans un même onglet ?...

il faudra adapter
18/03/2016, 13h10
Dr_lietman

Oui j'ai commencé à analyser le code de Thauteme. Le truc c'est que mon tableau ne peut contenir deux fois la même date, mais c'est bon à savoir au cas où je rencontre un tel cas donc je vais y travailler.
Encore merci à vous