La méthode Autofill de la class Range a échoué

Pierrot93

XLDnaute Barbatruc

• 13 Avril 2015

• #2

Re : La méthode Autofill de la class Range a échoué

Bonjour,

tu colles quelque chose au préalable, mais on ne voit pas quoi.... A voir que contient la cellule CC2. pas facile de travailler avec l'image d'un bout de code jetée sur un post...

bon après midi
@+

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 13 Avril 2015

• #3

Re : La méthode Autofill de la class Range a échoué

Re-bonjour,

C'est bon ma macro marche mais j'ai un autre problème.
Lorsque j'ai enregistré ma macro, j'étendais une formule jusqu'à la cellule 928 : Selection.AutoFill Destination:=Range("CB2:CB928")
Sachant que mon fichier ne comprendra jamais le même nombre de cellule, comment puis-je faire ?
Merci pour votre aide et excusez moi pour le post précédent.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #4

Re : La méthode Autofill de la class Range a échoué

Bonjour,

mon fichier ne comprendra jamais le même nombre de cellule, comment puis-je faire ?

Cliquez pour agrandir...

essaye ceci :

Code:

Destination:=Range("CB2:CB" & Cells(Rows.Count, 80).End(xlUp).Row)

bonne journée
@+

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #5

Re : La méthode Autofill de la class Range a échoué

Bonjour,

Merci pour ta réponse Pierrot93 mais cette modification me fait la meme erreur Autofill qu'auparavant.
Je te joins toute ma macro pour que t'es une vision d'ensemble, s'il te manque des informations dis le moi
Là je suis un peu perdu !

Cordialement,
Alexandre

 

Pièces jointes

• Macro.jpg

  56.5 KB · Affichages: 81
• Macro.jpg

  56.5 KB · Affichages: 63
• Macro.jpg

  56.5 KB · Affichages: 73

Dernière édition: 14 Avril 2015

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #6

Re : La méthode Autofill de la class Range a échoué

Re,

mets plutôt un bout de fichier représentant le problème posé avec la macro.... A voir si tu n'as pas des cellules fusionnées ou autres sur ta feuille...

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #7

Re : La méthode Autofill de la class Range a échoué

Re,

Alors voici un boutde mon excel, je sais pas si cela est très représentatif.
La colonne CB me sert a calculer le risque Max des sommes des colonnes LP, DPP, PI et RO.
La colonne CC me sert a calculer la somme des risques en PSA.
Et la colonne CD me calcul le rapport entre CC et CB.

Si celà peut t'éclairer..!

 

Pièces jointes

• Excel.jpg

  30 KB · Affichages: 96
• Excel.jpg

  30 KB · Affichages: 73
• Excel.jpg

  30 KB · Affichages: 63

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #8

Re : La méthode Autofill de la class Range a échoué

Re,

je parlais de joindre un fichier excel, non une image sur laquelle il est impossible de faire des tests...

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #9

Re : La méthode Autofill de la class Range a échoué

Re,

Voilà le fichier excel comprenant la macro

 

Pièces jointes

• Test.xlsm

  25.2 KB · Affichages: 51
• Test.xlsm

  25.2 KB · Affichages: 57
• Test.xlsm

  25.2 KB · Affichages: 58

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #10

Re : La méthode Autofill de la class Range a échoué

Bonjour,

essaye ceci :

Code:

 Range("A1").AutoFilter
    Range("CB1").FormulaR1C1 = "Risk max avant PSA"
    Range("CC1").FormulaR1C1 = "Risk PSA"
    Range("CD1").FormulaR1C1 = "Risk levé avant PSA"
    Range("CB2:CB" & Cells(Rows.Count, 79).End(xlUp).Row).FormulaR1C1 = _
        "=MAX(SUM(RC[-20]:RC[-17]),SUM(RC[-16]:RC[-13]),SUM(RC[-12]:RC[-9]),SUM(RC[-8]:RC[-5]))"

les "select" et autres "activate" sont rarement utiles en vba...

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #11

Re : La méthode Autofill de la class Range a échoué

Merci encore pour tes réponses si rapides !

J'ai beaucoup moins de ligne désormais, ca clarifie beaucoup ma macro, merci !
Mais la formule s'étend encore jusqu'à la ligne 928 sans prendre compte de l'arrêt de la feuille..

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #12

Re : La méthode Autofill de la class Range a échoué

Ne serait-ce pas du à " Selection.AutoFill Destination:=Range("CB2:CB928")
Range("CB2:CB928").Select" ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #13

Re : La méthode Autofill de la class Range a échoué

Re,

en l'état, la dernière ligne est déterminée sur celle renseignée de la colonne CA... change le 79 par le numéro de colonne que tu veux utiliser pour la déterminer...

 

Vote positif 0 Vote négatif

A

Alex74330

XLDnaute Nouveau

• 14 Avril 2015

• #14

Re : La méthode Autofill de la class Range a échoué

Reeeee,

Grace à toi et en supprimant le "Select.Autofill.." pour la colonne CB , la calcul s'arrête à la fin donc c'est parfait ! J'essaye maintenant de trouver la solution pour les 2 autres colonnes car quand je supprime l'autofill, les formules ne s'étendent plus du tout.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2015

• #15

Re : La méthode Autofill de la class Range a échoué

Re,

de trouver la solution pour les 2 autres colonnes car quand je supprime l'autofill, les formules ne s'étendent plus du tout.

Cliquez pour agrandir...

bah... applique la même chose que le code pour la colonne CB, suffif d'adapter les colonnes en question...

 

Vote positif 0 Vote négatif