Menu

Convertir dans VBA

Messages postés
206
Date d'inscription
jeudi 27 juin 2013
Statut
Membre
Dernière intervention
8 mars 2019
- - Dernière réponse : Thelucas160
Messages postés
206
Date d'inscription
jeudi 27 juin 2013
Statut
Membre
Dernière intervention
8 mars 2019
- 21 déc. 2018 à 11:15
Bonjour,


J'ai un fichier excel qui contien plusieur colonne.

Dans l'une d'elle, (colonne H) j'ai par exemple (les chiffre varie) :

H
TotalItemSize
21.92 MB (22,984,495 bytes)
245.7 MB (257,684,569 bytes)
1.132 GB (1,215,363,603 bytes)
2.096 GB (2,245,037,881 bytes)

J'aurais voulu entiermeent en vba, lorsque j'appuie sur un boutton obtenir ca dans la meme colonne :

TotalItemSize
22984495
257684569
1215363603
2245037881

De plus, est-il possible d’ouvrir 2 ou 3 ou 4 fichier excel en même temps avec un CheckBox (multiselect)
Merci
Afficher la suite 

1 réponse

Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373
0
Merci
Bonjour,

voir ces 2 sites pour faire une boucle sur une colonne et les fonctions Split et Replace:

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-I

Ce qui donne:

'https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
'https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-I
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
     Var = Split(Var, "(")(1)
     Var = Replace(Var, "bytes)", "")
     Var = Replace(Var, ",", "")
     FL1.Cells(NoLig, NoCol) = Var
    Next
    Set FL1 = Nothing
End Sub


De plus, est-il possible d’ouvrir 2 ou 3 ou 4 fichier excel en même temps avec un CheckBox (multiselect)

Pour le multiselect cela concerne la Combobox et la ListBox!
Thelucas160
Messages postés
206
Date d'inscription
jeudi 27 juin 2013
Statut
Membre
Dernière intervention
8 mars 2019
1 -
Normalement tout est bon. j'ai personoliser le code (belle usine a gaz) :

i = 2
Do Until Cells(i, "A") = ""
On Error Resume Next
Set WorkRng = Cells(i, "H")
xChar = "("
For Each Rng In WorkRng
xValue = Rng.Value
Rng.Value = VBA.Right(xValue, VBA.Len(xValue) - VBA.InStrRev(xValue, xChar))
Next


Cells(i, "H") = Replace(Cells(i, "H"), "bytes)", "")
Cells(i, "H") = Replace(Cells(i, "H"), ",", "")
Cells(i, "H") = Replace(Cells(i, "H"), "B", "")
Cells(i, "H") = Replace(Cells(i, "H"), " ", "")

i = i + 1
Loop

Mais le tout fonctionne :)
Commenter la réponse de cs_Le Pivert