Discussion :

[rinada]

Bonjour,
Je cherche à glisser une formule automatiquement sur un objet range, j'ai l'habitude de le faire sur une colonne ou une ligne , mon objectif aujourd'hui , c'est de le faire sur un tableau tout un entier, sachant que cet objet range est variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
i = Day(Range("B2").Value)
 'c = Split(Columns(i + 2).Address(ColumnAbsolute:=False), ":")(1)
   Range("C8").Formula = "=COUNTIFS(data!C6,TDB!R7C,data!C21,TDB!RC2)"
   Range("C8").AutoFill Destination:=Range("C8:C16")
   Range("C8:C16").AutoFill Destination:=Range(Cells(16, 3), Cells(16, i + 2))

[Daniel.C]

Bonjour,

A moins que j'aie mal compris, remplace la dernière ligne par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C8:C16").AutoFill Destination:=Range(Cells(8, 3), Cells(16, i + 2))

[rinada]

oui ; t' as bien compris, je dois ouvrir les yeux
merci pour ton aide , ça fait l'affaire