Adaptation de données

bonjour

j'ai un énorme problème je cherche une solution à un problème mais je m'y connais très peu en VBA et on ma demander de faire un macro qui génère des informations d'un client feuil1 sur une autre feuille de calcul feuil2 voici l'exemple je suis malheureusement bloquer

s'il vous plait quelqu'un pourrait m'aider ?

cordialement

je n'ai pas assez d'explications pour t'aide

donnes plus de détails

merci pour ta Réponse .

en gros

Il faut que toutes les écritures comptables (feuille1) se génèrent automatiquement dans la (feuille2) à la réception du fichier transmis par le client.

En sachant que le client nous transmet chaque mois un fichier des règlements équivalent a celui sur la feuille1

il faudrait je pense, a vous de me dire ? je m'y connais très peu en Excel

1 : Créer un tableau sur une autre feuille avec les nouvelles colonnes

2 : 1 ligne sur la (feuille 1 ) sois disposé sur deux lignes (feuille 2)

3 : Que cela rentre automatiquement les informations du clients dans la feuille 2

4 : si Le paiement a été effectué en CB(exemple) que sa affiche sur la 2 ligne de la feuille2 le numéro correspondant a l'action effectué

En sachant que le client nous transmet chaque mois un fichier des règlements équivalent a celui sur la feuille1

Désolé si je ne suis pas assez claire je peux vous transmettre mon macro(de débutant bien sur) si vous voulez

encore merci pour votre aide

Bonjour,

Malheureusementt ton exemple est encore bien pauvre... C'est des coups à refaire 10 fois la même chose avant de finaliser le W...

Comment on devine sur quel compte on affect les sommes : Pour chaque type de règlement on doit avec un N° de compte

"espèce" c'est quoi ? 5116 ?

A+

merci pour votre retour je met un exemple un peu plus concret

autant pour moi car je n'y connais Rien

Cette solution répond à votre 1er exemple. Bien sur comme le 2ème est différent ça marche moins bien.

Pour les espèces comme vous ne répondez pas à la question j'ai fait au pifomètre.

Dim i%, iRC&, WsC As Worksheet, THdr
Application.ScreenUpdating = False
Worksheets.Add.Name = "Test" & Worksheets.Count + 1
Set WsC = ActiveSheet
THdr = Split("date rgt,code journal,compte,débit,crédit,Libellé,pièce,référence pièce", ",")
    For i = 0 To UBound(THdr)
    WsC.Cells(2, 1 + i) = THdr(i)
    Next
        iRC = 3
        ArrS = Feuil1.[A1].CurrentRegion.Value2
        For i = 2 To UBound(ArrS)
        THdr(0) = Format(CDate(ArrS(i, 3)), "dd/mm/yyyy")
        THdr(1) = "RGLT"
        THdr(2) = "411" & ArrS(i, 5)
        THdr(3) = ""
        THdr(4) = ArrS(i, 12)
        THdr(5) = ArrS(i, 6)
        THdr(6) = ArrS(i, 10)
        THdr(7) = ArrS(i, 13)
        WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
        iRC = iRC + 1
        THdr(2) = CPTAFF(CStr(ArrS(i, 13)))
        THdr(3) = ArrS(i, 11)
        THdr(4) = ""
        WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
        iRC = iRC + 1
        Next
End Sub
Function CPTAFF(S$)
Select Case UCase(Left(S, 2))
Case "CA": S = "5118" 'cartes bancaires
Case "VI": S = "5115" 'viremt
Case "PR": S = "5117" 'prélev
Case "CH": S = "5112" 'Chèques
Case Else: S = "5116" 'Autres...
End Select
CPTAFF = S & "0000"
End Function

A+

Mille merci monsieur

vous êtes mon grand sauveur

encore desole de ne pas avoir été plus explicatif pour cette macro j'essayerai de l'être a l'avenir

encore MILLE MERCI MONSIEUR