Selection Colonne avec formule > copie en valeur

[Fab61]

Bonjour,

Actuellment dans une colone j'ai des formules et je voudrai selectionner toute les cellules (pleine)avec la fonction End(xlDown) de la colonne afin de leur recopier en 'valeurs' afin de ne plus avoir une formule mais une valeur.

Merci
fabien

 

[Hervé]

Re:Selection Colonne avec formule > copie en valeu

bonjour fab

peut etre quelque chose comme ceci :

Sub Macro1()
        Columns('a').SpecialCells(xlCellTypeFormulas, 23) = Columns('a').Value
End Sub

ici, c'est pour la colonne A à toi d'adapter.

salut

 

[Hervé]

Re:Selection Colonne avec formule > copie en valeu

re

une autre syntaxe, si tu as des cellules vide dans ta colonne :

Sub Bouton2_QuandClic()
Dim c As Range

For Each c In Columns('a').SpecialCells(xlCellTypeFormulas, 23)
        c = c.Value
Next c
End Sub

salut

 

[Fab61]

Re:Selection Colonne avec formule > copie en valeu

sa n'as pas l'air de marcher j'ai toujours les formules dans les cellules

voici mon code :

Range('A65000').End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Offset(0, 0).Range('B1').Select
ActiveCell.FormulaR1C1 = '=IF(ISBLANK(RC[6]),'''',RC[6]&'' / ''&RC[1])'
Columns('B').SpecialCells(xlCellTypeFormulas, 23) = Columns('B').Value
Range('A65000').End(xlUp).Offset(0, 0).Select

 

[Fab61]

Re:Selection Colonne avec formule > copie en valeu

Désolé sa marche !!
il est tard et je fait que des betise

merci de votre aide !!