Excel 2007 Etirer formule sur ligne et col
Résolu
VG13
Messages postés
21
Statut
Membre
-
saintsylar -
saintsylar -
Bonjour à tous,
J'ai une formule en B5 et j'aimerais l'étirer sur toutes les lignes et les colonnes de mon tableau à partir de B5.
Voici le code formule compris dans ma macro :
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C 3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499 C4,R4C)))))"
C'est une macro qui créera un nouveau tableau sur une nouvelle feuille. Le nombre de ligne et de colonne seront changeant mais la formule se situera toujours en B5.
Quelqu'un a une idée ?
Merci
J'ai une formule en B5 et j'aimerais l'étirer sur toutes les lignes et les colonnes de mon tableau à partir de B5.
Voici le code formule compris dans ma macro :
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C 3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499 C4,R4C)))))"
C'est une macro qui créera un nouveau tableau sur une nouvelle feuille. Le nombre de ligne et de colonne seront changeant mais la formule se situera toujours en B5.
Quelqu'un a une idée ?
Merci
A voir également:
- Excel 2007 Etirer formule sur ligne et col
- Formule si et excel - Guide
- Formule somme excel ligne - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
5 réponses
Bonjour,
Les 2 lignes de codes étire la formule jusqu'à la colonne [L] et la ligne [15], adapter les plages selon vos valeurs :
Les 2 lignes de codes étire la formule jusqu'à la colonne [L] et la ligne [15], adapter les plages selon vos valeurs :
Range("B5").AutoFill Destination:=Range("B5:L5"), Type:=xlFillDefault
Range("B5:L5").AutoFill Destination:=Range("B5:L15"), Type:=xlFillDefault
Bonjour Le Pingou,
Merci pour ta réponse, mais le problème est que je voudrais le faire sans connaitre le nombre de colonne et de ligne. Vu que je n'aurais pas les mêmes tableau le nombre (colonne, ligne) est aléatoire.
Comment étirer jusqu'a la derniere colonne et la dernière ligne du tableau ?
Cdt
Merci pour ta réponse, mais le problème est que je voudrais le faire sans connaitre le nombre de colonne et de ligne. Vu que je n'aurais pas les mêmes tableau le nombre (colonne, ligne) est aléatoire.
Comment étirer jusqu'a la derniere colonne et la dernière ligne du tableau ?
Cdt
Bonjour,
Vous devez récupérer les numéros de colonne et ligne de vos données.
Vous intégrez les lignes suivantes dans votre code :
' *** la dernière colonne pleine ; admis la ligne [1]
Note: j'admets que votre formule en [B5] est correcte.
Salutations.
Le Pingou
Vous devez récupérer les numéros de colonne et ligne de vos données.
Vous intégrez les lignes suivantes dans votre code :
' *** la dernière colonne pleine ; admis la ligne [1]
deco = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column' ***Idem pour la dernière ligne pleine ; admis la colonne [A]
deli = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499C4,R4C)))))"
Range("B5").AutoFill Destination:=Range(Cells(5, 2), Cells(5, deco)), Type:=xlFillDefault
Range(Cells(5, 2), Cells(5, deco)).AutoFill Destination:=Range(Cells(5, 2), Cells(deli, deco)), Type:=xlFillDefault
Note: j'admets que votre formule en [B5] est correcte.
Salutations.
Le Pingou
Bonjour à tous,
Cela marche nikel, bravo Le Pingou
Merci encore à tous pour votre aide précieuse,
Bonne journée
Cela marche nikel, bravo Le Pingou
Merci encore à tous pour votre aide précieuse,
Bonne journée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question