Repérer un chiffre parmis les lettre

CBernardT

XLDnaute Barbatruc

• 18 Mai 2011

• #2

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.

 

Pièces jointes

• TransForceVent.xls

  31 KB · Affichages: 58

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 18 Mai 2011

• #3

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 :

Code:

=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

@+

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 18 Mai 2011

• #4

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)

 

Pièces jointes

• InsertionDevantNombre.xls

  16 KB · Affichages: 55

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 19 Mai 2011

• #5

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

Cliquez pour agrandir...

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... 😕

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 19 Mai 2011

• #6

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 19 Mai 2011

• #7

Re : Repérer un chiffre parmis les lettre

Salut

ou encore

Code:

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

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 19 Mai 2011

• #8

Re : Repérer un chiffre parmis les lettre

Génial, ça marche !!!

MERCI les amis !!!!!!

 

Vote positif 0 Vote négatif