Microsoft 365 rapprochement bancaire

[Mouchette]

bonjour,

j'avais trouvé un tableau sur ce site qui m'allait très bien
Seulement j'ai un problème
Quelqu'un peut m'aider à le résoudre
dans ma boite de dialogue quand j'inscris une dépense il me l'a met n'importe ou et
plus rien ne marche
Pouvez-vous m'aider svp

 

[Rouge]

Bonjour,

Votre partie de code en défaut corrigé

   With Sheets(Feuil1.Name)
     Numlig = .Columns(2).Find("").Row     'on trouve la dernière ligne vide du tableau'
     .Cells(Numlig, 1) = DateValue(TextBox1.Value)  'Date'
     .Cells(Numlig, 2) = ComboBox1.Value  'Catégorie'
     .Cells(Numlig, 3) = TextBox3.Value   'Libellé'
       If OptionButton2 = True Then
          .Cells(Numlig, 4) = Val(TextBox4.Value)   'Montant crédit'
         Else
          .Cells(Numlig, 5) = -Val(TextBox4.Value)   'Montant débit'
       End If
       '=G8+E9+F9
       .Range("F" & Numlig).FormulaLocal = "=F" & Numlig - 1 & "+D" & Numlig & "+E" & Numlig
   End With

Cdlt

 

[Mouchette]

Bonjour,

Votre partie de code en défaut corrigé

   With Sheets(Feuil1.Name)
     Numlig = .Columns(2).Find("").Row     'on trouve la dernière ligne vide du tableau'
     .Cells(Numlig, 1) = DateValue(TextBox1.Value)  'Date'
     .Cells(Numlig, 2) = ComboBox1.Value  'Catégorie'
     .Cells(Numlig, 3) = TextBox3.Value   'Libellé'
       If OptionButton2 = True Then
          .Cells(Numlig, 4) = Val(TextBox4.Value)   'Montant crédit'
         Else
          .Cells(Numlig, 5) = -Val(TextBox4.Value)   'Montant débit'
       End If
       '=G8+E9+F9
       .Range("F" & Numlig).FormulaLocal = "=F" & Numlig - 1 & "+D" & Numlig & "+E" & Numlig
   End With

Cdlt

Je suis perdue il faut que je vais ou pour trouver vos codes

 

[Rouge]

Pour voir le code, Faire ALT + F11
-dans la partie gauche, faire un clic droit sur "UserForm1" puis, cliquez sur "Afficher l'objet".
-dans la partie droite, vous arrivez sur le UserForm1 en mode création, faites un double-clic sur le bouton "Validation"? vous êtes sur le code du bouton "Validation".

Mais vous n'avez rien à faire, voici votre fichier corrigé:

Cdlt

 

[Mouchette]

Pour voir le code, Faire ALT + F11
-dans la partie gauche, faire un clic droit sur "UserForm1" puis, cliquez sur "Afficher l'objet".
-dans la partie droite, vous arrivez sur le UserForm1 en mode création, faites un double-clic sur le bouton "Validation"? vous êtes sur le code du bouton "Validation".

Mais vous n'avez rien à faire, voici votre fichier corrigé:

Cdlt

ca ne marche pas pour moi
quand je tape une date il me met pas a la suite

 

[Mouchette]

ca ne marche pas pour moi
quand je tape une date il me met pas a la suite

j'aimerais qu'il me met a la suite comme à la ligne 254

 

[Rouge]

Remontez jusqu'au début de la feuille, les données se collent dans la première ligne vide.

 

[Mouchette]

Remontez jusqu'au début de la feuille, les données se collent dans la première ligne vide.

Un grand merci ça marche