Discussion :

[ouskel'n'or]

Et avec

Code :

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

range("a1").value=Val(variable)

Ça ne fonctionne pas ?

[Oh!Tofocus]

une autre methode plus rapide que je viens d'enregistrer avec l'enregistreur de macro

Code :

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

1
2
3
4
5
6
7
8
 
    ' positionner 1 dans la cellule A1 (pour lexemple ici )
    Range("A1").Select
    Selection.Copy
    ' ici la zone a multiplier par 1 est G9:G16
    Range("G9:G16").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:= _
        False, Transpose:=False

en fait j'ai enregistré les manip suivantes sur EXEL:
apres avoir mis 1 dans A1
copier la cellule A1
selectionner avec la souris la zone a traiter ( ici G9:G16)
choisir Edition/collage special
choisir Multiplication et OK

C'est de la bidouille mais c'est l'occasion de réviser les collages speciaux
et en plus elle marche même si il y a du texte dans la zone selectionnée