Question Réponse
Bonjour,
J'ai un fichier à intégrer avec des "codes analytiques" simplement il faut je respecte l'écriture comptable.
Je voudrais indiquer une formule dans mon tableau qui est la suivant H5=H6 alors la valeur de K7 doit etre copiée vers K6
Voici le fichier : https://www.cjoint.com/c/MJkjjohZhuL
Merci à vous
Bonne journée
Cordialement
Posté le 10 octobre 2023, 11:10Bonjour Christophe,
ton fichier en retour (fichier .csv converti en .xlsm) :
https://www.cjoint.com/c/MJklXgetsM0
fais Ctrl e ; puis vérifie les résultats. :)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code VBA de Module1 (14 lignes) :
Option Explicit
Sub Essai()
Dim d&: d = Cells(Rows.Count, "K").End(3).Row: If d < 3 Then Exit Sub
Dim T, i&: T = Range("H1:K" & d): i = d: Application.ScreenUpdating = 0
Do
If T(i, 4) <> "" Then
If T(i - 2, 1) = T(i - 1, 1) Then T(i - 1, 4) = T(i, 4): i = i - 2
End If
i = i - 1
Loop Until i < 3
[K1].Resize(d) = Application.Index(T, Evaluate("Row(" & "1:" & d & ")"), 4)
End Sub
rhodo
Posté le