Macro : AutoSelect & AutoFill

Fermé
Nago008 Messages postés 3 Date d'inscription mercredi 15 octobre 2014 Statut Membre Dernière intervention 15 octobre 2014 - Modifié par Nago008 le 15/10/2014 à 18:11
 Maurice - 16 oct. 2014 à 11:37
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 !



A voir également:

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
Nago008 Messages postés 3 Date d'inscription mercredi 15 octobre 2014 Statut Membre Dernière intervention 15 octobre 2014
15 oct. 2014 à 20:14
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
Nago008 Messages postés 3 Date d'inscription mercredi 15 octobre 2014 Statut Membre Dernière intervention 15 octobre 2014
15 oct. 2014 à 23:42
Comme ceci ? :)

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

Merci :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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