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