Selectionner les cellules vides d'une colonne et recopier une formule

[ennida]

Bonjour,

Je souhaite appliquer la formule suivante seulement à la colonne A de ma zone encours
Le code ci-dessous selectionne l'ensemble des cellules vides de la zone encours

Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"

Merci

 

[Cousinhub]

Re : Selectionner les cellules vides d'une colonne et recopier une formule

Bonjour,

avec le code suivant, tu remplis les cellules vides de la colonne A par la formule, et tu remplaces cette formule par la valeur (si tu le désires)

With Columns("A:A")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With

 

[ennida]

Re : Selectionner les cellules vides d'une colonne et recopier une formule

ça marche mais ça me selectionne l'ensemble de la colonne A alors que je souhaite uniquement selectionner la colonne contenant les données de A6 à la dernière cellule vide de la même colonne (dernière cellule qui n'est pas figé)

 

[Cousinhub]

Re : Selectionner les cellules vides d'une colonne et recopier une formule

Re,

ainsi :

With Range("A6:A" & [A65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With

 

[ennida]

Re : Selectionner les cellules vides d'une colonne et recopier une formule

c'est exactement ce que je voulais big merci