XL 2016 Remplacement de valeur dans une cellule

[bruno972]

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

 

[Dim.Reichart]

Bonsoir,
Copier coller?

Sans fichier joint ni plus d'explication, on peut difficilement comprendre le problème.

 

[bruno972]

bonsoir,
je veux mettre le n° de semaine dans les cellules non vides de la même colonne.

merci d'avance

 

[Staple1600]

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]

Re

Si c'est bien le but recherché, cette macro est une solution possible

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]

Re

Si c'est bien le but recherché, cette macro est une solution possible

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]

Bonsoir le fil

bruno972
Il suffisait d'une légère adaptation 😉

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]

Bonsoir le fil

bruno972
Il suffisait d'une légère adaptation 😉

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]

Bonsoir le fil

Une petite variante (pour le fun)

Sub RemplirNonVides_avec_Endives()
On Error Resume Next
With [C2:V49]
.SpecialCells(2, 1) = "=R1C"
.Value = .Value
End With
End Sub

 

[bruno972]

Bonsoir le fil

Une petite variante (pour le fun)

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]

Bonsoir le fil,

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