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

Bonjour

1 réponse
Avatar
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

1 réponse

Avatar
isabelle
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