Bonjour

Le
achraf01
Bonjour,
je veux votre aide a propos d'un probleme d'affiche en VBA:
le programme est le suivant:
For q = 1 To 200

Mot = Cells(q, 14)
Nombrech = ""

For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'récupère les chiffres
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
Nombrech = Nombrech & Mid(Mot, Compteur, 1)
End Select

Next

Cells(q, 7).Value = Nombrech


Next q
==> le but est d'extraitre des nombre à partire d'une chaine de carractére.
la question est la suivante:
je veux afficher les nombres à extraitres à partire d'une cellule bien définie exemple:
rang ("A20":"A50").
Merci d'avance
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
isabelle
Le #19167251
bonjour achraf01,

Mot = Cells(q, 14)
Nombrech = ""
x = 20
For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'récupère les chiffres
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
Nombrech = Nombrech & Mid(Mot, Compteur, 1)
Cells(x, "A") = Nombrech
x = x + 1
End Select
Next

isabelle



achraf01 a écrit :
Bonjour,
je veux votre aide a propos d'un probleme d'affiche en VBA:
le programme est le suivant:
For q = 1 To 200

Mot = Cells(q, 14)
Nombrech = ""

For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'récupère les chiffres
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
Nombrech = Nombrech & Mid(Mot, Compteur, 1)
End Select

Next

Cells(q, 7).Value = Nombrech


Next q
==> le but est d'extraitre des nombre à partire d'une chaine de carractére.
la question est la suivante:
je veux afficher les nombres à extraitres à partire d'une cellule bien définie
exemple:
rang ("A20":"A50").
Merci d'avance



Publicité
Poster une réponse
Anonyme