Donner une valeur 1 à une cellule contenant du texte

Calvus

XLDnaute Barbatruc

• 5 Février 2015

• #2

Re : Donner une valeur 1 à une cellule contenant du texte

Bonsoir,

Vois si ça te convient :

En cellule B1

Code:

=SI(A1<>"";1)

A copier vers le bas
A+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Février 2015

• #3

Re : Donner une valeur 1 à une cellule contenant du texte

Bonjour, Phoenix23, Calvus , le Forum,

Par macro... si j'ai bien compris le besoin :

Code:

Option Explicit
Sub Chiffre_un_en_b_si_texte_en_a()
    Dim c As Range
    For Each c In Columns(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If Not IsNumeric(c) Then c.Offset(, 1) = 1
    Next
End Sub

A bientôt

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 5 Février 2015

• #4

Re : Donner une valeur 1 à une cellule contenant du texte

Re,

Hey !! Double Zéro, mon Ainesse préférée, on me nargue ?!?

Déjà qu'on m'a abandonné avec mes formules de Pentozacroatedebétadovébéaaexcl !!! Et mon doliprane...

Et tu me remets une couche.. je m'incline

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 5 Février 2015

• #5

Re : Donner une valeur 1 à une cellule contenant du texte

Alors pour compléter, et aller dans le sens de Double Zéro, à savoir pouvoir entrer des valeurs numériques, toujours en B1 et tirer vers le bas :

Code:

=SI(ESTTEXTE(A1);1;"")

A+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Février 2015

• #6

Re : Donner une valeur 1 à une cellule contenant du texte

Re-bonjour,

Calvus à dit:

...mon Ainesse préférée, on me nargue ?!? ...

Déjà qu'on m'a abandonné avec mes formules de Pentozacroatedebétadovébéaaexcl !!! Et mon doliprane...

Et tu me remets une couche.. je m'incline

Cliquez pour agrandir...

Petit poisson des mers du Sud ,

Tant que tu n'auras pas dépassé l'âge de 99 mois et 30 jours... nul besoin de t'incliner !

A bietôt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Février 2015

• #7

Re : Donner une valeur 1 à une cellule contenant du texte

Bonsoir à tous

[digressions à vocation cataplectique]
On peut se dispenser du Si (mais pas de Si... ) avec cette formule
=ESTTEXTE(A1)*1
ou avec celle-ci (à utiliser uniquement les mois en BRE)
=LOG(1)+(NBCAR(T(A1))>0)
voir cette dernière (à utiliser tous les jours sauf le 14 février)
=NON(ESTNONTEXTE(A1))*1
[/digressions à vocation cataplectique]

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 6 Février 2015

• #8

Re : Donner une valeur 1 à une cellule contenant du texte

Bouhhh Staple y fait que m'embêter...

Mais bravo ! Bien vu et intéressant.

 

Vote positif 0 Vote négatif

Phoenix23

XLDnaute Occasionnel

• 6 Février 2015

• #9

Re : Donner une valeur 1 à une cellule contenant du texte

Bonjour à toutes et tous,
Le moins que je puisse dire est que j'ai l'embarras du choix....Merci pour votre Aide.
Serait-il possible à partir de l'une des formules données de personnaliser afin d'obtenir une somme. Je m'explique: Cellules A1,A2,A3 du texte...Cellule B1=3 ? D'avance Merci.
Cordialement.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 6 Février 2015

• #10

Re : Donner une valeur 1 à une cellule contenant du texte

Bonjour,

Code:

=NB.SI(A1:A10;"*")

A placer en C1. Ou en B1 mais tu perds l'autre formule.

A+

 

Vote positif 0 Vote négatif

Phoenix23

XLDnaute Occasionnel

• 6 Février 2015

• #11

Re : Donner une valeur 1 à une cellule contenant du texte

Re, Bonsoir.
Merci de votre aide, la formule proposée me convient parfaitement et clos pour moi le sujet.
Avec tous mes remerciements.
Cordialement

 

Vote positif 0 Vote négatif