Discussion :

[tytyxam]

Salut à tous,

J'ai cherché à prendre les solutions déja existantes sur le net mais ça ne semble pas marcher avec mon programme.

Voila ce que je fais:

1/ Je copie une plage de données
2/ Je remplace dans cette plage des mots par des chiffres
3/ Je veux utiliser ces nombres pour faire des calculs.

J'essaye d'utiliser la fonction xlmultiply pour convertir toute la plage d'un coup mais hélas ça ne marche pas si je le fais sous VBA, alors que si je le réalise manuellement, aucun problème tout fonctionne. Voila la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Range("B36").Select   (B36 est une cellule = 1)
    Selection.Copy
        Range("B2:IV28").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

Je débute en VBA et je suis sous excel 2003.

Merci d'avance.

[jfontaine]

Bonjour

hélas ça ne marche pas si je le fais sous VBA

Merci d'être plus précis.
Une erreur? pas le bon résultat ?
Si erreur qu'elle ligne?

[tytyxam]

Pas d'erreur en particulier, je suis la procédure pas à pas, il n'y a pas de bug. C'est juste qu'il ne transforme pas les nombres stockés en texte, en nombre.
Je reste avec le même message de vérification des erreurs avec le message "nombre stockés en texte".
J'ai oublié de préciser mais j'ai des nombres à décimales donc je ne peux pas utiliser la fonction val().

Merci.

En fait, je pense que ça vient du fait que VBA ne reconnait pas la virgule comme séparateur de décimal. Je cherche un moyen de remplacer la virgule par un point compréhensible par VBA

[Sclarckone]

Pour y remédier, il suffit de changer le format des cellules copiées (sinon peut-être existe-t-il une option pour le PasteSpecila permettant de conserver le format). Petite remarque au passage, les 'Select' sont inutiles. Ils sont générés par l'enregistreur de macros à cause des sélections d'éléments à la souris mais en VBA il ne servent qu'à ralentir le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("B36").Copy
Range("B2:IV28").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
Range("B2:IV28").NumberFormat = "0.00"    'Change pour le format dont tu as besoin

[tytyxam]

Niquel! Merci beaucoup pour le conseil au passage.