Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

range = cel

5 réponses
Avatar
Jacquouille
bonjour
Comment puis-je faire une boucle sur tous les caractères contenus dans une
cellule, svp?
Genre: for each caractère in range("A1")
if estnum(caractère) then

Merci beaucoup et bonne fin d'aprem

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

5 réponses

Avatar
JièL
Le 10/12/2015 14:54, Jacquouille a écrit :
bonjour
Comment puis-je faire une boucle sur tous les caractères contenus dans
une cellule, svp?
Genre: for each caractère in range("A1")
if estnum(caractère) then



For i = 1 To Len([A1])
If IsNumeric(Mid([A1], i, 1)) Then

ça devrait le faire ;-)

---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com



Toujours cette satané Pub...

--
JièL antipub
Avatar
DanielCo
Bonjour Jacquouille,
Si tu ne veux que les chiffres :
Sub test()
For i = 1 To ActiveCell.Characters.Count
If IsNumeric(ActiveCell.Characters(i, 1).Text) Then
MsgBox ActiveCell.Characters(i, 1).Text
End If
Next i
End Sub
Cordialement.
Daniel
Jacquouille avait écrit le 10/12/2015 :
bonjour
Comment puis-je faire une boucle sur tous les caractères contenus dans une
cellule, svp?
Genre: for each caractère in range("A1")
if estnum(caractère) then

Merci beaucoup et bonne fin d'aprem

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.


---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
Avatar
Jacquouille
Merci Daniel et Jièl

En fait, c'est pour essayer un truc pour aider à répondre au msg 2 cm + bas
( Séparer lettres et chiffres).
Je me donne jusqu'au Nouvel An pour y arriver; -))

Grand merci à vous et bonne fin de journée

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"DanielCo" a écrit dans le message de groupe de discussion :
n4c1ch$mek$

Bonjour Jacquouille,
Si tu ne veux que les chiffres :
Sub test()
For i = 1 To ActiveCell.Characters.Count
If IsNumeric(ActiveCell.Characters(i, 1).Text) Then
MsgBox ActiveCell.Characters(i, 1).Text
End If
Next i
End Sub
Cordialement.
Daniel
Jacquouille avait écrit le 10/12/2015 :
bonjour
Comment puis-je faire une boucle sur tous les caractères contenus dans une
cellule, svp?
Genre: for each caractère in range("A1")
if estnum(caractère) then

Merci beaucoup et bonne fin d'aprem

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.


---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com




---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com
Avatar
MichD
Bonjour,

For i = 1 To ActiveCell.Characters.Count

Cette ligne de code est possible seulement si le contenu de la cellule est
du texte (alphanumérique).
Si tu as seulement des chiffres dans la cellule, le format de la cellule
doit obligatoirement être "TEXTE" pour que cela fonctionne!

MichD
---------------------------------------------------------------
Avatar
Jacquouille
Merci Denis
Comme dit plus haut, j'essaie de répondre à la demande (2 cm + bas) pour
séparer les chiffres et les lettres.
-((
Pas facile, mais j'ai jusqu'au Nouvel An.
Bonne soirée


Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
n4c6dn$3vh$

Bonjour,

For i = 1 To ActiveCell.Characters.Count

Cette ligne de code est possible seulement si le contenu de la cellule est
du texte (alphanumérique).
Si tu as seulement des chiffres dans la cellule, le format de la cellule
doit obligatoirement être "TEXTE" pour que cela fonctionne!

MichD
---------------------------------------------------------------


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com