Macro réalisable??

[sokour]

Bonjour,

Je suis débutant en VBA et je voulais savoir si je pouvais automatiser plusieurs taches :

Voici les détails :

j'ai un classeur avec un onglet Source et 12 onglets en fonction du mois (janv, fev, etc...)
A partir du fichier source je veux sélectionner les lignes qui concerne le mois concerné et qui copie ces lignes dans l'onglet du mois correspondant.

j'ai commencer par pensé une idée de macro :

Mois = Impubox : veuillez rentrer le mois concerné (ex : 3 = mars)

Onglet « Source » : colonne O : selectionne toutes les lignes du mois

Créer un onglet « tampon » pour stocker les lignes du mois concerné
• Additionner le montant (Source !colonne E) par Devise
• Additionner pour chaque Devise le nombre de ligne
• Additionner le nombre de lignes en fonction de Taux (Source !colonne N)

Copier ces informations dans le tableau de l’onglet du mois concerné.
(Sachant que si c’est le mois 1 cela concerne l’onglet Janv )

Supprimer l’onglet Tampon

Pouvez vous m'aider a voir plus claire.

Je vous joint un extrait de mon fichier de travail.

Merci

 

[vbacrumble]

Re : Macro réalisable??

Bonjour


Voici une macro:
Qui filtre les données selon le mois indiqué, copie le résulta filtré vers
une feuille Tampon (crée aussi par la macro)

Teste et dis moi si cela te convient.

Je reviendrai plus tard pour continuer la macro.

Sub testmacro()
Dim FeuilleCopie As Worksheet
Mois = CStr(InputBox("Choisir le mois?"))
With Sheets("Source")
    .Range("O1").AutoFilter 15, Mois
        With .Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
            Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
        Set FeuilleCopie = Sheets.Add
        ActiveSheet.Name = "Tampon"
    With Sheets("Tampon").Range("A1")
        .PasteSpecial xlFormats
        .PasteSpecial xlValues
    End With
End With
End With
Application.CutCopyMode = False
End Sub

 

[sokour]

Re : Macro réalisable??

Génial pour le début ca copie parfaitement les lignes en fonction du mois choisi dans la feuille Tampon.

Je te remercie pour ce début.

 

[kjin]

Re : Macro réalisable??

Bonjour,
Pas vraiment besoin de macro pour ça à mon sens
Sauf qu'on ne comprend pas ou doit être inscris le montant suivant le taux dans tes tableaux mensuels
Attention aux cellules fusionnées !
A+
kjin

 

[sokour]

Re : Macro réalisable??

on doit copier :
les montants par devises dans les celulles dans la colonne Montant
les nombres de lignes par devises dans les celulles dans la colonne DAT
les nombres de lignes par en fonction de taux (london rates = london / eurlib = EURIBOR / Libor / CLT= Euribor/libor < marge réduite) , a chaque fois dans la colonne nombre en fonction de la devise

 

[kjin]

Re : Macro réalisable??

Re,
c'est un peu plus clair, par contre la colonne % ?
A+
kjin

 

[sokour]

Re : Macro réalisable??

les Pourcentages c'est juste par rapport au total, je mettrais une formule
Je vais essayer ton fichier
mais on doit recopier a la main toutes les formules sachant que j'ai 12 onglets

 

[sokour]

Re : Macro réalisable??

je viens d'essayer ta formule mais ca me donne #Valeur

 

[sokour]

Re : Macro réalisable??

J'arrive pas a appliquer ta formule

 

[sokour]

Re : Macro réalisable??

J'atends la suite de votre macro et encore merci pour le début

 

[sokour]

Re : Macro réalisable??

Peut tu m'aider en mettant la suite de ta macro
Merci

 

[vbacrumble]

Re : Macro réalisable??

Re


C'est à moi que tu t'adresses ?

la solution Kjin te convient pas ?

Je peux t'aider oui, mais à mon rythme.

 

[sokour]

Re : Macro réalisable??

ok je me mettrais a ton rythme merci😀

 

[kjin]

Re : Macro réalisable??

Bonjour,
As tu inséré les plages nommées Dates, Montants, Taux...
Menu --> Insertion/Nom/Définir --> regardes les formules
J'ai ajouter une macro pour créer les feuilles mensuelles
A+
kjin

 

[sokour]

Re : Macro réalisable??

Oui j'ai redéfini les plages mais ca ne marche pas c'est écrit n#A