Microsoft 365 rapprochement bancaire

Rouge à dit:

Bonjour,

Votre partie de code en défaut corrigé

VB:

   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

Cliquez pour agrandir...

Rouge à dit:

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

Cliquez pour agrandir...

Mouchette à dit:

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

Cliquez pour agrandir...

Rouge à dit:

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

Cliquez pour agrandir...