Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ennida

XLDnaute Junior
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

XLDnaute Barbatruc
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)

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

ennida

XLDnaute Junior
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

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

Re,

ainsi :

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…