Demande de macro

[jeba14]

Bonjour,

je cherche a créer une macro sous excel, qui ferait ceci:

Remplacer GB* par vide

Remplacer *, par vide

Remplacer *pl* par vide

ceci va permettre de faire resortir que les chiffres des textes.
Par contre en faisant ceci je me retrouve avec des lignes vide.
Si vous avez une solution pour les supprimer ce serait cool.

Ce qui va me permettre de faire un calcul rapide de tous ces chiffres.

Merci d'avance

 

[Lone-wolf]

Bonjour Jeba, d'après une fonction de Jacques Boisgontier. Dans la colonne des résultas, mise en forme personnalisée (Format = 0)

Option Explicit

Sub Extract_Char()
Dim cel As Range, obj As Object, chaine As String
    With Feuil1
        For Each cel In .Range("A2:A100")
            Set obj = CreateObject("vbscript.regexp")
            obj.Global = True
            obj.Pattern = "[a-z,A-Z,*,/,-,+,',"",&,%,@,#,$,;,:,!,,,_]+"
            chaine = cel.Value
            chaine = obj.Replace(chaine, "")
            cel.Offset(, 1) = chaine
        Next cel
    End With
End Sub

Oubien comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim obj As Object, chaine As String

    If Not Intersect(Target, Range("b2:b100")) Is Nothing Then
        Set obj = CreateObject("vbscript.regexp")
        obj.Global = True
        obj.Pattern = "[a-z,A-Z,*,/,-,+,',"",&,%,@,#,$,;,:,!,,,_]+"
        chaine = Target.Offset(0, -1).Value
        chaine = obj.Replace(chaine, "")
        Target.Value = chaine
    End If
End Sub

 

[jeba14]

Bonjour,

merci pour votre réponse.

Je suis débutant, je vais voir ce que cela donne.

merci

 

[jeba14]

RE,

ce code fait quoi exactement?

cordialement

 

[mutzik]

bonjour,

un petit fichier exemple nous aiderait beaucoup plus ...

 

[Lone-wolf]

Bonjour Bertrand

Tu as dit que tu voulais récupérer les nombres qui sont avec les textes que tu as mentionné, bein... c'est ce qu'elle fait. Et comme l'a dit Bertrand met le fichier pour que l'on puisse travailler dessus, c'est quand même pas compliqué.

 

[jeba14]

Bonjour,

merci pour votre aide, je vous joint un exemple de fichier.

je ne peu pas vous forunir le fichier réel (nom de serveur etc... dessus).

sur celui la je n'ai pas rajouté la macro.

si vous faites remplacer comme dans ma demande et dans l'autre vous obtenez que les chiffres.

En gros c'est que je veu faire pour calculer ensuite le tous.

je vous remercie d'avance

cordialement

 

[Lone-wolf]

Bonjour jeba

ça j'avais compris, mais maintentant que tu nous montre le fichier, quelles sont au juste les lignes que tu veux calculer? Parce-que dans la liste il y a aussi 21:25:36 et 15 files.

 

[jeba14]

en faite je veu juste recuperer le nombre de GB total

 

[Lone-wolf]

Ah bein, ça tu aurait dû le dire clairement dans le premier post.

"Remplacer GB* par vide - Remplacer *, par vide - Remplacer *pl* par vide", chercher l'erreur....

 

[Lone-wolf]

Re

Ton fichier en retour, j'ai aussi ajouter une fonction pour faire le total. Si besoin, efface seulement la colonne A, surtout ne pas supprimer les lignes.

 

[jeba14]

c'est ok.

cool merci beaucoup, je vais gagner un temps précieux grace a vous.

est désolé pour le départ qui n'été pas très clair.

cordialement