Macro modification contenu

[azmodan31]

Bonjour à tous,

Je suis à la recherche d'un tout petit bout de code. Mon problème est le suivant: je fais une extraction de différentes valeurs qui sont du type 100 MB, 250 MB, 12 MB et j'ai besoin d'additionner ces valeurs, j'ai donc besoin d'une macro qui enlève le "MB".

Voilà si quelqu'un a une idée je suis preneur.

Merci d'avance

 

[Jack2]

Re : Macro modification contenu

Bonjour à tous

Dans l'exemple suivant, les valeurs sont supposées être dans les cellules A1 à A12. Le code est à adapter selon ta structure de feuille.

Sub Enlève_MB()
Dim i As Integer
Dim St As String

'boucle sur les cellules A1 à A12
For i = 1 To 12
    ' Prend la valeur de la cellule sous forme de chaîne
    St = Range("A" & i).Value
    'Si MB est dans la chaîne St on enlève MB (on le remplace par "")
    If InStr(St, "MB") Then St = Replace(St, "MB", "")
Next i

End Sub

Bonne journée
A+

 

[azmodan31]

Re : Macro modification contenu

Jack2 merci pour ta réponse,

Je ne vois pas d'erreur dans ton code mais chez moi ça ne fonctionne pas, que ce soit en colonne A ou dans une autre....
Une autre idée?

 

[Caillou]

Re : Macro modification contenu

Bonjour,

Pourquoi ne pas utiliser la commande Remplacer (Accueil/Edition/Rechercher et sélectionner/Remplacer)
recherche : MB remplacer par : rien / Remplacer tout
au pire, il est possible d'enregistrer ces actions à l'aide de l'enregistreur de macros (onglet Affichage / Macros / Enregistrer une macro)

Caillou

 

[azmodan31]

Re : Macro modification contenu

Ah oui bonne idée, ça serait effectivement la solution la plus simple.

Merci

 

[azmodan31]

Re : Macro modification contenu

J'ai testé ça fonctionne parfaitement avec le code suivant:

Columns("E:E").Select
Selection.Replace What:="MB", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Mais comme un problème ne vient jamais seul....

J'ai maintenant différentes valeurs: MB, KB etc...pour ça pas de problème je duplique le code en changeant la valeur à remplacer.
Mais après ça j'ai besoin de faire la somme de ces valeurs.

Je suis donc à la recherche d'un code qui, avant le remplacement des MB, KB, etc..., remplisse la colonne d'à côté avec la valeur correspondante. Soit E1 contient MB alors F1=MB, le tout pour la colonne entière.

Voilà si quelqu'un a une idée....Merci d'avance

 

[Jack2]

Re : Macro modification contenu

Mille excuses azmodan31, j'ai oublié de remplacer la valeur initiale par la valeur modifiée. Après

If InStr(St, "MB") Then St = Replace(St, "MB", "")

Il faut rajouter (avant le Next) :

Range("A" & i).Value = St

J'espère que tout ira bien
A+

 

[Jack2]

Re : Macro modification contenu

Ci-joint le fichier correspondant

 

[azmodan31]

Re : Macro modification contenu

Merci Jack2, ça fonctionne parfaitement 🙂

Aurais-tu une idée pour la deuxième partie de mon problème?

 

[Jack2]

Re : Macro modification contenu

Bonsoir,

Si cela concerne le KB et MB, voilà peut-être une solution. Par contre, si tu veux introduire de B, des GB... il faudrait probablement simplifier le code.
A+

 

[azmodan31]

Re : Macro modification contenu

Merci Jack2 c'est exactement ce qu'il me fallait 🙂 🙂 🙂

 

[Jack2]

Re : Macro modification contenu

Bonjour,

Je pensais que tu me demanderais la même chose pour des Bytes jusqu'au Tera Bytes. Comme le fichier est prêt, je te le mets (bouton n°2)

A+
Jack2