XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente

[Nico77]

Bonjour

Voici un code que j'ai récupérer d'un autre programme qui fonctionne.

Mais je n'arrive pas a faire la même chose sur une plage de cellules a versifier H2:H16 avec le résultat en I2:H16.

Merci de votre temps passé.


Sub RemplirSiPleine()
Dim cellPrecedente As Range
Dim cellCourante As Range

Set cellPrecedente = Sheets("Page").Range("A2") ' Cellule à vérifier
Set cellCourante = Sheets("Page").Range("B2") ' Cellule à remplir

If cellPrecedente <> "" Then
cellCourante.Value = 1
Else
cellCourante.Value = ""
End If
'End Sub

 

[job75]

Bonsoir Nico77,

Sub RemplirSiPleine()
Dim c As Range
For Each c In [H2:H16]
    c(1, 2) = IIf(c = "", "", 1)
Next
End Sub

A+

 

[job75]

Sans boucle :

Sub RemplirSiPleine2()
With [I2:I16]
    .FormulaR1C1 = "=IF(RC[-1]="""","""",1)"
    .Value = .Value 'supprime les formules
End With
End Sub

 

[Nico77]

Sans boucle :

Sub RemplirSiPleine2()
With [I2:I16]
    .FormulaR1C1 = "=IF(RC[-1]="""","""",1)"
    .Value = .Value 'supprime les formules
End With
End Sub

Bonjour

Un Grand Merci