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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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