Bonjour,
Je cherche à définir une Range grâce à l'intitulé d'une colonne, je m'explique. Pour le moment j'ai le code suivant qui fonctionne très bien:
et
Je souhaiterais à la place de Range("C:C") et Range("N:N") avoir quelque chose comme:
et
En clair faire référence à l'intitulé d'une colonne plutôt qu'à une position fixe.
J'ai aussi essayé de cette façon mais ça ne fonctionne pas non plus:
Si quelqu'un a une idée, d'avance merci et bonne journée !
Je ne peux pas poster le fichier qui fait plus de 45MO...
Je cherche à définir une Range grâce à l'intitulé d'une colonne, je m'explique. Pour le moment j'ai le code suivant qui fonctionne très bien:
Code:
Application.CountA(Workbooks(ExtractTCD).Sheets("Source - TCD").Range("C:C").SpecialCells(xlCellTypeVisible)) - 1
et
Code:
WorksheetFunction.Sum(Sheets("Source - TCD").Range("N:N").SpecialCells(xlCellTypeVisible))
Je souhaiterais à la place de Range("C:C") et Range("N:N") avoir quelque chose comme:
Code:
Application.CountA(Workbooks(ExtractTCD).Sheets("Source - TCD").Range(("ID").Column).SpecialCells(xlCellTypeVisible)) - 1
et
Code:
WorksheetFunction.Sum(Sheets("Source - TCD").Range(("Montant brut").Column).SpecialCells(xlCellTypeVisible))
En clair faire référence à l'intitulé d'une colonne plutôt qu'à une position fixe.
J'ai aussi essayé de cette façon mais ça ne fonctionne pas non plus:
Code:
WorksheetFunction.Sum(Sheets("Source - TCD").Range(Rows(1).Find("Montant brut", LookAt:=xlWhole).Column).SpecialCells(xlCellTypeVisible))
Si quelqu'un a une idée, d'avance merci et bonne journée !
Je ne peux pas poster le fichier qui fait plus de 45MO...
Dernière édition: