Sub zzz() lig = 1 nb = "" For i = 1 To Len([A1]) Select Case Mid$([A1], i, 1) Case 1, 2, 3, 4, 5, 6, 7, 8, 9 nb = nb & Mid$([A1], i, 1) Case Else If nb <> "" Then Cells(lig, 2) = nb nb = "" lig = lig + 1 End If End Select Next i End Sub
Pounet95
"azerty" a écrit dans le message de news:49807748$0$3497$
Bonjour,
Je recherche un script en vba pour automatiser ceci :
J'ai une cellule Range("A1").value qui contient ces données : 123***589******58**569**7********0123**2
Je souhaiterai que dans la colonne suivante (B) s'affiche uniquement les numériques, un par cellule :
Sub zzz()
lig = 1
nb = ""
For i = 1 To Len([A1])
Select Case Mid$([A1], i, 1)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9
nb = nb & Mid$([A1], i, 1)
Case Else
If nb <> "" Then
Cells(lig, 2) = nb
nb = ""
lig = lig + 1
End If
End Select
Next i
End Sub
Pounet95
"azerty" <azerty@free.fr> a écrit dans le message de
news:49807748$0$3497$426a74cc@news.free.fr...
Bonjour,
Je recherche un script en vba pour automatiser ceci :
J'ai une cellule Range("A1").value qui contient ces données :
123***589******58**569**7********0123**2
Je souhaiterai que dans la colonne suivante (B) s'affiche uniquement les
numériques, un par cellule :
Sub zzz() lig = 1 nb = "" For i = 1 To Len([A1]) Select Case Mid$([A1], i, 1) Case 1, 2, 3, 4, 5, 6, 7, 8, 9 nb = nb & Mid$([A1], i, 1) Case Else If nb <> "" Then Cells(lig, 2) = nb nb = "" lig = lig + 1 End If End Select Next i End Sub
Pounet95
"azerty" a écrit dans le message de news:49807748$0$3497$
Bonjour,
Je recherche un script en vba pour automatiser ceci :
J'ai une cellule Range("A1").value qui contient ces données : 123***589******58**569**7********0123**2
Je souhaiterai que dans la colonne suivante (B) s'affiche uniquement les numériques, un par cellule :
Bonsoir Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose() ' ' Découpe le contenu de la cellule courante en sous-chaines ' et place verticalement ces sous-chaines dans les cellules à droite ' ' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination ' non-vide…)
Dim DECOUP() As String Dim Taille As Integer Const Sep = "*"
Bonsoir
Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose()
'
' Découpe le contenu de la cellule courante en sous-chaines
' et place verticalement ces sous-chaines dans les cellules à droite
'
' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination
' non-vide…)
Dim DECOUP() As String
Dim Taille As Integer
Const Sep = "*"
Bonsoir Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose() ' ' Découpe le contenu de la cellule courante en sous-chaines ' et place verticalement ces sous-chaines dans les cellules à droite ' ' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination ' non-vide…)
Dim DECOUP() As String Dim Taille As Integer Const Sep = "*"
Où as-tu trouvé ce genre de référence ? Si jamais j'avais à coder encore sur des chaînes ?
Trirème a écrit :
Bonsoir Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose() ' ' Découpe le contenu de la cellule courante en sous-chaines ' et place verticalement ces sous-chaines dans les cellules à droite ' ' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination ' non-vide…)
Dim DECOUP() As String Dim Taille As Integer Const Sep = "*"
Où as-tu trouvé ce genre de référence ?
Si jamais j'avais à coder encore sur des chaînes ?
Trirème a écrit :
Bonsoir
Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose()
'
' Découpe le contenu de la cellule courante en sous-chaines
' et place verticalement ces sous-chaines dans les cellules à droite
'
' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination
' non-vide…)
Dim DECOUP() As String
Dim Taille As Integer
Const Sep = "*"
Où as-tu trouvé ce genre de référence ? Si jamais j'avais à coder encore sur des chaînes ?
Trirème a écrit :
Bonsoir Il y a ça aussi, avec plus de fonctions intégrées :
Sub DecoupeEtTranspose() ' ' Découpe le contenu de la cellule courante en sous-chaines ' et place verticalement ces sous-chaines dans les cellules à droite ' ' Pas de gestion d'erreurs (cellule active vide ou non-texte, destination ' non-vide…)
Dim DECOUP() As String Dim Taille As Integer Const Sep = "*"