Macro : AutoSelect & AutoFill

Fermé
Signaler
Messages postés
3
Date d'inscription
mercredi 15 octobre 2014
Statut
Membre
Dernière intervention
15 octobre 2014
-
 Maurice -
Bonjour,

Je fais à nouveau appel à vous car je cale assez bien sur une macro.

Grâce à votre précieuse aide, j'aimerais pouvoir réaliser un résumé du tableau ci-dessous



Et en faire un AutoFill comme ci-dessous



Comme vous le voyez, plusieurs problèmes se posent à moi.

Je sais comment faire en sorte de ne faire apparaitre qu'une fois chaque mois présent dans le premier tableau.
Je bloque sur l'autosélection pour ensuite pouvoir résumer chaque collonne par la suite par macro.

(Comment faire pour que ma macro s'adapte automatiquement aux nombres de mois présent dans mon tableau résumé).

Si je le fais manuellement, je ne sais pas comment faire pour ne pas me cantonner aux deux collonnes présentes dans la section Mois. Car ce ne sont pas toujours les mêmes mois qui sont présents et pas le même nombre de mois présent non plus.

Merci d'avance pour votre aide !

Votre dévoué,

NaGo !



5 réponses

Bonjour

sans modele de ton fichier dur

voila un ex AutoFil

Sub TestAutoFill()
Dernligne = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & Dernligne), Type:=xlFillDefault
End Sub

A+

Maurice
1
Messages postés
3
Date d'inscription
mercredi 15 octobre 2014
Statut
Membre
Dernière intervention
15 octobre 2014

Bonjour Maurice,

Merci de votre aide,

Voici mon fichier test :

http://ww1.partage-facile.com

Bonne soirée,

Gaëtan
0
Re

passe par http://cjoint.com/ pour créer le lien

car ton lien ne marche pas cher moi

A+
Maurice
0
Messages postés
3
Date d'inscription
mercredi 15 octobre 2014
Statut
Membre
Dernière intervention
15 octobre 2014

Comme ceci ? :)

https://www.cjoint.com/?0JpxUfsmrU3

Merci :)
0
Bonjour

jais fait une macro
je ne peux pas lire ton fichier car je suis en excel 2003

Sub AutoF()
Flig = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:I2").Select
Selection.AutoFill Destination:=Range("B2:I" & Flig)
Range("A1").Select
End Sub

A+
Maurice
0