SVP j'ai besoin de vous en vba Résolu/Fermé

Question

Bonjour, 
je souhaite additionner toutes les cellules de ma colonne C, ça marche bien sauf pour certaines cellules à côté desquelles j'ai un triangle vert qui m'oblige à convertir manuellement mes valeurs en nombre et si je ne le fais pas alors mes valeurs ne seront pas prises en compte et seront ignorées lors de l'addition. 

Je recherche donc une façon d'insérer cette conversion dans mon programme VBA afin que l'utilisateur n'ait pas besoin de le faire lui-même. 

merci d'avance

riske83 · Answer

bonjour,

peut être devriez vous nommé vos cellules sous VBA "AS Double" pour qu'il les reconnaisse comme une valeur.

J'espère vous avoir aidé 

bonne journée

Mike-31 · Answer

Salut,

Certaines cellules son en format texte

sans VBA mets ta plage en surbrillance et clic sur le petit pictogramme dont tu fais référence et convertir en nombre

ou saisis 1 dans une cellule fais Edition/copier de cette cellule, mets la plage à traiter en surbrillance Edition/collage spécial coche multiflication et OK

Si tu veux passer en VBA avec l'assistant macro tu fais cette dernière manip pour avoir ce genre de code

Range("A1").Select
    Selection.Copy
    Range("D1:D50").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

A+

lermite222 · Answer

Bonjour,
Petite précision, si les nombres entrer en texte le sont avec un point à la place de la virgule il n'est pas possible de les transformer en nombre.
Il faut remplacer les points par des virgules avec du VBA
En cas que...
Sub Virgule()
Dim Lig As Long
    For Lig = 1 To Range("C65536").End(xlUp).Row
        Cells(Lig, 3) = Replace(Cells(Lig, 3), ".", ",")
    Next Lig
End Sub
A+

lermite222 · Answer

J'ai essayé de changer le format et je n'y parvient pas non plus.
Une solution...
Sub Transcode()
Dim Lig As Long
    For Lig = 1 To Range("C65536").End(xlUp).Row
        Cells(Lig, 3) = CDbl(Cells(Lig, 3))
    Next Lig
End Sub
J'ai tester et ça fonctionne.
(En cas que.)Tu met le curseur au milieu de la macros et tu tape F5
A+

SVP j'ai besoin de vous en vba

4 réponses

Discussions similaires