Soit un tableau de données que je peux filtrer en fonction d'une condition 1 (col D). une fois filtré, je souhaite effectuer sur les colonnes de données un copier / collage spécial valeurs, pour ainsi figer le résultat des formules filtrées.
Si macro, pourriez vous m'expliquer rapidement comment faire évoluer le nombre de colonnes (car en réalité j'en ai au moins 3 à figer) qui ne soit pas forcement en colonne F ni cote à cote.
Si macro, pourriez vous m'expliquer rapidement comment faire évoluer le nombre de colonnes (car en réalité j'en ai au moins 3 à figer) qui ne soit pas forcement en colonne F ni cote à cote.
Dans ce cas, dans votre exemple, vous auriez pu mettre des colonnes non jointives.
C'est ce que j'ai fait dans le fichier joint.
Une macro très simple :
Code:
Sub Valeurs()
Dim r As Range
Set r = Intersect([G:G,J:J], [D3].CurrentRegion.EntireRow) 'à adapter
For Each r In r
If r.EntireRow.Hidden = False Then r = r.Value 'copie la valeur
Next
End Sub
Re : Filtre copier / collage spécial de valeurs pour figer le résultat de formules
Bonjour Job,
Impeccable, mille merci, c'est parfaitement ce que je recherche.
Une dernière petite question pour clôturer la discussion :
Code:
Set r = Intersect([G:G,J:J], [z3].CurrentRegion.EntireRow) 'à adapter
[D3] : je suppose que c'est la cellule contenant mon filtre. J'ai décallé toute la colonne en B par exemple et il n'y a pas eu d'incidence. Par contre j'ai mis [Z3] pour tester et dans ce cas la macro a beugué. Pouvez vous m'éclaircir un peu?
Re : Filtre copier / collage spécial de valeurs pour figer le résultat de formules
Re,
Ceci sera plus rapide :
Code:
Sub Valeurs()
Dim r As Range
Application.ScreenUpdating = False
Set r = Intersect([G:G,J:J], [D3].CurrentRegion.EntireRow) 'à adapter
For Each r In r.SpecialCells(xlCellTypeVisible)
r = r.Value 'copie la valeur
Next
End Sub
Re : Filtre copier / collage spécial de valeurs pour figer le résultat de formules
Re job,
Dans mon post #3, j'avais omis de vous dire que j'avais réduit la taille des colonnes pour effectuer la macro (peut être la raison de l'erreur...). Car dans mon vrai tableau, j'ai des calculs sous les colonnes filtrées que je ne souhaite bien sûr pas figé, et j'ai supposé qu'en laissant la colonne entière cela allait effectivement tout figer.
Encore une fois un grand merci.
Excellente journée job
@+
Scoty
Pièces jointes
Filtre Copier-Collage spécial avec valeurs erreur .xls