Discussion :

[DragZZ]

Bonjour Le forum

aujourd'hui j'ai un petit problème concernant une de mes conditions SI

mon but est de créer une conditions SI qui dédouble la ligne du compte client Ex :" 35165DABSO ." que SI il y a un compte de TVA "445720" en reprévenant les informations de la ligne repris mais en changeant le libellé en rajoutant TAUX TVA 10% comme ci-dessous .


pourriez vous m'aider a adapter ma condition ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MAcroInsertion()
Dim i&
Application.ScreenUpdating = False
If Cells(i + 1, 3) = "445720" And Cells(i + 1, 3) Like "*35*" Then
Rows(i + 1).Insert
    Cells(i + 1, 1) = Cells(i + 1, 1)
    Cells(i + 1, 2) = Cells(i + 1, 2)
    Cells(i + 1, 3) = Cells(i + 1, 3)
    Cells(i + 1, 4) = Cells(i + 1, 4)
    Cells(i + 1, 1) = Cells(i + 1, 1)
    Cells(i + 1, 1) = Cells(i + 1, 1)
End If
End Sub

j'ai essayé plein de conditions mais sans succès

Je vous joins un fichier test avec des explications approfondis si vous avez des questions n'hésitez pas et mon code qui est ci-dessous et dans le fichier test.

En vous remerciant