XL 2016 Remplacement de valeur dans une cellule

bruno972

XLDnaute Junior
Bonjour,
voici ma question
en A1 j'ai le chiffre 48
les cellules A2 à A50 il y a des cellules qui ne sont pas vides.
comment faire pour remplacer les cellules non vides par la valeur de A1?

Cordialement
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

Dans ton fichier exemple, il n'y a pas de cellules vide en A2:A49 ?

Si on regarde la colonne C, il y des cellules vides (sauf en C16)
Tu veux que dans les cellules vides s'incrivent la valeur 44
(qui est la valeur en C1)
C'est cela?

Et tu veux que cela se fasse sur toutes les colonnes de C à V.
 

Staple1600

XLDnaute Barbatruc
Re

Si c'est bien le but recherché, cette macro est une solution possible
VB:
Sub RemplirVides()
Dim Rng As Range
On Error Resume Next
Set Rng = Range("C1:V49").SpecialCells(xlCellTypeBlanks)
Rng.FormulaR1C1 = "=R1C"
Range("C1:V49") = Range("C1:V49").Value
End Sub
 

bruno972

XLDnaute Junior
Re

Si c'est bien le but recherché, cette macro est une solution possible
VB:
Sub RemplirVides()
Dim Rng As Range
On Error Resume Next
Set Rng = Range("C1:V49").SpecialCells(xlCellTypeBlanks)
Rng.FormulaR1C1 = "=R1C"
Range("C1:V49") = Range("C1:V49").Value
End Sub


Bonsoir le fil,

Dans ton fichier exemple, il n'y a pas de cellules vide en A2:A49 ?

Si on regarde la colonne C, il y des cellules vides (sauf en C16)
Tu veux que dans les cellules vides s'incrivent la valeur 44
(qui est la valeur en C1)
C'est cela?

Et tu veux que cela se fasse sur toutes les colonnes de C à V.


Bonjour,

Non Je voudrais que la cellule C16 qui n'est pas vide inscrive la valeur 44 de la cellule C1.
et idem pour les autres colonnes.

Cordialement
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

bruno972
Il suffisait d'une légère adaptation ;)
VB:
Sub RemplirNonVides()
Dim Rng As Range
On Error Resume Next
Set Rng = Range("C2:V49").SpecialCells(xlCellTypeConstants, 1)
Rng.FormulaR1C1 = "=R1C"
Range("C2:V49") = Range("C2:V49").Value
End Sub
 

bruno972

XLDnaute Junior
Bonsoir le fil

Une petite variante (pour le fun)
VB:
Sub RemplirNonVides_avec_Endives()
On Error Resume Next
With [C2:V49]
.SpecialCells(2, 1) = "=R1C"
.Value = .Value
End With
End Sub
Bonjour

Je suis pas expert en VBA et j'ai du faire une erreur.
j'ai inséré la variante ci-dessus et quand j'ai fais MACRO Exécuter toutes les valeurs se sont mises à 0

pouvez-vous me dire mon erreur

Merci
 

Discussions similaires

Réponses
10
Affichages
319

Statistiques des forums

Discussions
311 705
Messages
2 081 721
Membres
101 803
dernier inscrit
astyx26