XL 2016 Remplacement de valeur dans une cellule

bruno972

XLDnaute Nouveau
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 Nouveau
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 Nouveau
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
Bonjour
Merci beaucoup c'est exactement ça

encore Bravo
 

Staple1600

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

bruno972

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

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

Pas d'erreur chez moi.
Sauf si la plage de cellules C1:V1 est vide...
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas