if cell.text = true then cell = 1

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Avril 2005

• #3

Bonjour Carlos

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Avril 2005

• #4

Salut Pascal

dans le même temps !

et deux variantes


il est servi !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 21 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 21 Avril 2005

• #6

re

bon on arrete là la simultanéité

 

Vote positif 0 Vote négatif

G

galopin01

XLDnaute Occasionnel

• 21 Avril 2005

• #7

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.

Code:

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+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 21 Avril 2005

• #8

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

 

Vote positif 0 Vote négatif