Transformation de Cellules vides en 0

[ttinmarr]

Bonjour,

Je dispose de deux tableaux, je souhaite que le tableau 2 reprenne les valeurs du tableau 1 mais de façon binaire:
- cellules vides = 0
- autres = 1
J'ai pensé à une formule du style ...
"=Si(Cycles!C7=Specialcells(xlCellTypeBlanks);0;1)"
...sans succès (sachant que "Cyles" est l'onglet où se trouve le tb1).

Avez vous svp une idée?
Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Transformation de Cellules vides en 0

Bonjour,

regarde peut être le code ci-dessous si il peut t'aider :

Option Explicit
Sub test()
With Range("A1:C5")
    .SpecialCells(xlCellTypeConstants).Value = 1
    .SpecialCells(xlCellTypeBlanks).Value = 0
End With
End Sub

bonne journée
@+

 

[ttinmarr]

Re : Transformation de Cellules vides en 0

Merci pour la réponse.

Mais n'y a-t-il pas moyen d'effectuer cela avec une formule présente ds chaque cellule du tb 2 à la place d'une macro?

 

[job75]

Re : Transformation de Cellules vides en 0

Bonjour ttinmarr, salut Pierrot,

On avait cru comprendre qu'il fallait du VBA...

=(A1<>"")*1

ou

=NON(ESTVIDE(A1))*1

A+

 

[ttinmarr]

Re : Transformation de Cellules vides en 0

C'est parfait.
Merci beaucoup!