Excel Downloads Forums - Afficher un message

cbea · 11/05/2008, 18h04

Bonsoir Matrix, kjin,

Une méthode plus courte avec ce code VBA :

Code:

    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
   
    Sheets("COUT PAR PÉRIODE").Range("G5:G" & nbLignes).Formula = "=COUNTIF(RefCumul,$A5&$G$3)"

RefCumul a été décrit dans le fichier joint précédemment.

11/05/2008, 18h04	#8 (permalink)
cbea XLDnaute Impliqué Date d'inscription: mars 2008 Version Excel : Excel 2003 (PC) Messages: 745	Re : NB Si entre 2 feuilles vba excel Bonsoir Matrix, kjin, Une méthode plus courte avec ce code VBA : Code: nbLignes = Cells(Rows.Count, "A").End(xlUp).Row Sheets("COUT PAR PÉRIODE").Range("G5:G" & nbLignes).Formula = "=COUNTIF(RefCumul,$A5&$G$3)" RefCumul a été décrit dans le fichier joint précédemment. __________________ @+ cbea