Repérer un chiffre parmis les lettre

[Chris57]

Bonjour à tous

j'ai une série de données de ce type :
Vent : ouest-sud-ouest10 km/h
Vent : sud-ouest10 km/h
Vent : sud5 km/h

etc..
j'aimerai mettre un espace, voir un signe juste avant la vitesse pour obtenir ça :
Vent : ouest-sud-ouest -> 10 km/h
Vent : sud-ouest ->10 km/h
Vent : sud -> 5 km/h

avez vous une idée ?

 

[CBernardT]

Re : Repérer un chiffre parmis les lettre

Bonjour Christ57 et le forum,


Un exemple de solution par VBA.

Cela doit être également possible par formule.

 

[Tibo]

Re : Repérer un chiffre parmis les lettre

Bonjour Chris, salut Bernard,

C'est effectivement possible avec une formule matricielle :

le texte en A1, en B1 cette formule :

=GAUCHE(A1;EQUIV(VRAI;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1);0)-1)&" "&STXT(A1;EQUIV(VRAI;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1);0);99)

Formule matricielle à valider par CTRL + MAJ + ENTREE

@+

 

[hoerwind]

Re : Repérer un chiffre parmis les lettre

Bonjour, salut CBernardT et Tibo,

Proposition de variante par formule non matricielle dont la partie répétitive est nommée (menu Insertion - Nom - Définir)

 

[Chris57]

Re : Repérer un chiffre parmis les lettre

Bonsoir à tous et merci de votre aide !

J'ai oublié de préciser que c'était en VBA que je souhaitait ce code.

Mais j'ai un soucis : CBernardT, ton code se plante étonnement dans mon classeur que voici : Cijoint.fr - Service gratuit de dépôt de fichiers

J'ai le message

Erreur d'exécution '5':

Argument ou appel de procédure incorrect

Comme tu peux le voir mon classeur est une usine à gaz.
Pour faire simple, le petit bouton nommé "actualiser" en haut à droite récupère les données de Météo France.
Ensuite j'ai rajouté ta macro au bouton orange "TRANSFORMATION"


La photo ci dessous te montre où tu peux appuyer, ainsi que le bouton pour sortir du plein écran.

Ce lien n'existe plus

Au premier clic ça plante, au second ça a l'air de marcher... 😕

 

[CBernardT]

Re : Repérer un chiffre parmis les lettre

Bonjour à tous,

Si j'ai bien compris ton projet, une syntaxe adaptée :

Sub CORRECTIONS()
' Séparation de la direction du vent et de sa vitesse
Dim Cell As Range, k As Byte, POSnum As Byte
With Sheets("Graphiques")
For Each Cell In [L8😛8,L16:N17]
POSnum = 0
' Recherche la position du caratère numérique
For k = 1 To Len(Cell)
If IsNumeric(Mid(Cell, k, 1)) Then
POSnum = k - 1
Exit For
End If
Next k
' Report de la direction et de la vitesse
If POSnum > 0 Then
Cell.Offset(1, 0) = Right(Cell, Len(Cell) - POSnum)
Cell = Left(Cell, POSnum)
End If
Next Cell
End With
End Sub

 

[Si...]

Re : Repérer un chiffre parmis les lettre

Salut

ou encore

Sub cor()
    Dim Cell As Range, k As Byte, n As Byte
    For Each Cell In Range("L8:P8,L16:M16")
        For k = 1 To 9
            n = InStr(Cell, k)
            If n > 1 Then
               Cell = Replace(Cell, Left(Cell, n - 1), Left(Cell, n - 1) & " : ", 1)
               Exit For
            End If
        Next
    Next
End Sub

 

[Chris57]

Re : Repérer un chiffre parmis les lettre

Génial, ça marche !!!

MERCI les amis !!!!!!