Multplication de colonnes par 100.

[newpixi]

Bonjour le forum,

Voici mon problème: je possède diverses colonnes par exemple A, B, C...

Je voudrais multiplier TOUTES les valeurs numériques de la colonne A; B; C par 100, sans utiliser de nouvelles colonnes.

J'ai essayé le code suivant, mais il ne marche pas :

Sub MEF()
Dim C As Variant
Sheets("Analyse_Couleur").Select
For Each C In Range("AH:AH,AO:AQ,AX:AZ,BA:BC,BG:BI,DQ:DQ")
If IsNumeric(C) Then
C = C * 100
End If
Next

End Sub

Ce code doit s'intégrer dans un autre code plus complexe, et l'instruction doit se situer à la fin.

 

[abcd]

Re : Multplication de colonnes par 100.

Bonjour,

En enregistrant la macro suivante :

Saisir 100 dans une cellule.
Copier cette valeur.
Sélectionner les colonnes A, B et C
Collage spécial / multiplication / Ok
Effacer la valeur 100.

abcd

 

[BOISGONTIER]

Re : Multplication de colonnes par 100.

Bonjour,

C.Value = C.Value * 100

JB