[VBA] probléme de format

Fermé
nightcyborg - 10 mars 2009 à 16:33
 nightcyborg - 10 mars 2009 à 18:32
Bonjour,

j'ai un souci avec une macro pour Excel. j'ai des volumes exprimés en Mo, mais je dois faire en sorte que "Mo" ne soit plus affiché, seulement la valeur. je me suis dis, que c'était simple, mais je bloque.

exmple :

je pars de ça 189,256Mo

je fais passer cette valeur par la code suivant :

If InStr(Cells(i, 11).Value, "Mo") Then
Cells(i, 11).Value = Replace(CStr(Cells(i, 11).Value), "Mo", "")
End If

je me retrouve avec : 189 256

j'ai aussi essayé de procéder comme suit :

If InStr(Cells(i, 11).Value, "Mo") Then
Cells(i, 11).Value = Left(Cells(i, 11).Value, Len(Cells(i, 11).Value) - 2)
End If

mais j'obtiens le même résultat, pas de virgule. au départ, la valeur est au format standard puis, après être passé par mon code se retrouve au format nombre.

si quelqu'un possède la solution, merci d'avance de la partager avec moi ;)
A voir également:

2 réponses

Réponse 1 / 2
nightcyborg
10 mars 2009 à 17:17
je viens de me rendre compte que ça fonctionne sur certaines valeurs, mais je ne vois pas pourquoi. elles sont au même format.
0
Réponse 2 / 2
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 645
10 mars 2009 à 18:04
Bonjour,

En fait je pense qu'il prend la virgule pour le séparateur de milliers pendant la conversion. Pour éviter ce phénomène il faut soit passer les cellules au format texte avant l'exécution de la macro soit les passer au format texte dans la macro comme cela : 
If InStr(Cells(i, 11).Value, "Mo") Then
    Cells(i, 11).NumberFormat = "@"
    Cells(i, 11).Value = Replace(Cells(i, 11).Value, "Mo", "")
End If


A+
0
nightcyborg
10 mars 2009 à 18:32
merci, c'est effectivement ce que j'ai fais juste avant que tu poste ce message (je le jure).

enfin merci a toi ;)
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
taxe foncière pour locataire
Cryséis -
irongege -

bonjour, je suis locataire à l'étage d'une maison. je reçois ce mois ci ma quittance de loyer accompagnée d'une facture correspondant à la taxe foncière. En effet notre propiétaire ayant reçu l'avis de taxe foncière, il la divise en 4 (nombre de locataires) et nous facture la somme. Sachant que nous payons une taxe d'habitation, sommes nous redevables de cette somme? Cette pratique est-elle normale?

1 réponse