range = cel

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JièL
Le #26380974
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
DanielCo
Le #26380973
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
Jacquouille
Le #26380979
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




---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
MichD
Le #26380984
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
---------------------------------------------------------------
Jacquouille
Le #26380990
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
Publicité
Poster une réponse
Anonyme