Aide macro importation classement

Bonjour à tous,

Je voudrais savoir comment faire pour créer une macro ou autre qui met les éléments de ma feuille saisie (de la ligne 2 à la ligne 15 inclus) dans la feuille cpt dans le bon mois par rapport à la date.

Merci par avance pour vos réponses.

8budget.xlsx (63.40 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

6budget-v1.xlsm (75.35 Ko)

Bonjour

Parfait cela fonctionne, est-il possible de m'expliquer comment vous avez fait ?

Car c'est quelque chose que j'aurai aimer savoir faire moi même.

Savoir également si il est possible de mettre les importations dans le bon mois au niveau des lignes 300 des mois.

Merci encore

Bonjour

comment vous avez fait ?

J'ai fait une macro.

Tu peux la voir en cliquant simultanément sur les touches Alt et F11

Savoir également si il est possible de mettre les importations dans le bon mois au niveau des lignes 300 des mois.

Désolé mais je ne comprends pas ce que tu veux dire.

Bye !

Quand je regarde la macro sa me donne ceci :

Option Explicit

Dim tablo, fc As Worksheet

Dim i&, col&, lgn&

Sub Reporter()

tablo = Range("A1").CurrentRegion

Set fc = Sheets("Cpt")

For i = 2 To UBound(tablo, 1)

col = Month(Range("A" & i)) * 5 - 4

lgn = fc.Cells(Rows.Count, col).End(xlUp)(2).Row

Range("A" & i & ":D" & i).Copy fc.Cells(lgn, col)

Next i

End Sub

J'aurai aimer savoir comment vous avez fait cette macro, si cela est possible.

Quand je dit de mettre à la ligne 300, j'entend par la inserer les données a partir de la ligne 300 dans la feuille cpt au lieu que les données soient en debut de mois.

Merci par avance

J'aurai aimer savoir comment vous avez fait cette macro, si cela est possible.

Réponse : en faisant appel à mes connaissances, acquises au cours d'une brève formation et d'une longue expérience.

Si le coeur t'en dit, suis les cours de ce forum ça te fera un excellent début :

capture

Quant à écrire le résultat à la ligne 300, il te suffit de remplacer l'instruction :

lgn = fc.Cells(Rows.Count, col).End(xlUp)(2).Row

par celle-ci

lgn = 300

OK ?

Bye !

Impeccable cela fonctionne, mais le soucis c'est si je met plusieurs ligne a la suite par exemple 01/01/19 bla bla et 01/01/19 rerere il y aura que la première ligne qui apparaitra au niveau de la ligne 300.

Une dernière chose comment faire pour que une fois importer dans la feuille cpt les données de saisie s'efface ?

Encore un grand merci de votre aide.

Nouvelle version.

Bye !

9budget-v2.xlsm (76.07 Ko)

Super réactif.

Une toute dernière chose quand je modifie la ligne :

lgn = fc.Cells(Rows.Count, col).End(xlUp)(2).Row

par

lgn = 300

cela me met bien les données à la ligne 300 dans les bons mois, mais le soucis si je met 2 lignes au mois de janvier ou plus par exemple il y en a qu'une qui apparait au mois de janvier.

Merci encore pour tout.

bonjour à tous

sur Excel, je conseille de faire de l'Excel

exemple

il n'y a aucune formule (sauf addition) ni code VBA

amitiés à tous

4exemple.xlsx (26.74 Ko)

Nouvelle version.

Bye !

3budget-v3.xlsm (76.45 Ko)

re

salut gmb

j'ai modifié mon fichier

amitiés

2exemple.xlsx (29.96 Ko)

Un grand Merci GMB cela fonctionne.

Je passe le sujet en résolu

Rechercher des sujets similaires à "aide macro importation classement"