Division par deux

[Aymeric75]

Bonjour,
existe-t-il un moyen d'effectuer l'opération suivante :
- je dispose d'un tableau excel dans lequel chaque cellule est constituée d'une somme de cellules issues d'un autre onglet
- je souhaite effectuer une opération sur chacune de ces cellules : division par deux
Comment faire ?
Merci de vos réponses

 

[dominique35]

Re : Division par deux

bonjour
As-tu un fichier pour exemple

 

[job75]

Re : Division par deux

Bonjour Aymeric75, bienvenue sur XLD,

- Nommer (menu Insertion-Nom-Définir) tablo votre tableau

- exécuter le code :

Sub Divise()
Dim cel As Range
On Error Resume Next 'sécurité...
For Each cel In Range("tablo")
cel.FormulaR1C1 = "=(" & Mid(cel.FormulaR1C1, 2, 9 ^ 9) & ")/2"
Next
End Sub

Si la somme est calculée par la fonction SOMME, vous pouvez supprimer les 2parenthèses.

Edit : salut dominique

A+

 

[Aymeric75]

Re : Division par deux

Merci Job 75, mais comment puis-je exécuter le code ? à quel endroit ?

a +

 

[Raja]

Re : Division par deux

Bonjour, Salut à tous,

Une autre possibilité de faire une opération :

Saisir par exemple 2 dans une cellule. Copier ce chiffre. Sélectionner les cellules à diviser par deux. Effectuer un collage spécial de division.

 

[Aymeric75]

Re : Division par deux

Super, merci beaucoup Raja !!!

 

[dominique35]

Re : Division par deux

regarde si c'est ce que tu recherches