if cell.text = true then cell = 1

[carlos]

Bonjour , si j'abuse vous me le dites car c'est bon de se sentir soutenu ...

sous excel on ecrit :
=si(esttexte(a1);1;0)

Sous VbA comment ecrit on cette formule ci dessus :

un essai qui ne marche pas ,oups

for each cell in Myselection
if cell.text = true then cell = 1
Else cell = 0

merci

 

[PascalXLD]

Bonjour

Pour reprendre ce que tu as fait

Dim cell As Range

For Each cell In Selection
If Not IsNumeric(cell) Then
cell = 1
Else
cell = 0
End If
Next

Bonne journée

 

[dg62]

Bonjour Carlos

For each cell in Selection
if VarType(cell)=vbString then
cell.value=1
else
cell.value=0
Endif
next

 

[dg62]

Salut Pascal

dans le même temps !

et deux variantes


il est servi !

 

[PascalXLD]

Salut Didier

Oh là il est temps que je parte en vacances mais oui mais c'est bien sûr le vartype

Bonne journée

 

[dg62]

re

bon on arrete là la simultanéité

 

[galopin01]

bonjour,
cette formule :
=si(esttexte(a1);1;0)
renvoie 1 dans une (autre) cellule si A1 'ESTTEXT'
le problème est de savoir si tu veux faire quelque chose de similaire
ou si tu veux remplacer les valeurs de la sélection.
DG62 et Pascal remplacent la sélection
La macro ci jointe donne une valeur à colonne B (sélection) si colonne A (voisine de sélection) contient du texte.

Sub Test()
For Each o In Selection
Set v = o.Offset(0, -1)
   If VarType(v) = vbString Then o.Value = 1 Else o.Value = 0
Next
End Sub

A+

 

[carlos]

Bonjour Galopin , Pascal , Dg et autres experts

c'est une moisson de résultats que je recois ...

Du code à explorer et à comprendre , je me met au boulot


Merci beaucoup