Division par deux

D

dominique35

XLDnaute Occasionnel

• 22 Septembre 2009

• #2

Re : Division par deux

bonjour
As-tu un fichier pour exemple

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2009

• #3

Re : Division par deux

Bonjour Aymeric75, bienvenue sur XLD,

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

- exécuter le code :

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+

 

Vote positif 0 Vote négatif

A

Aymeric75

Guest

• 22 Septembre 2009

• #4

Re : Division par deux

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

a +

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 22 Septembre 2009

• #5

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.

 

Vote positif 0 Vote négatif

A

Aymeric75

Guest

• 22 Septembre 2009

• #6

Re : Division par deux

Super, merci beaucoup Raja !!!

 

Vote positif 0 Vote négatif

D

dominique35

XLDnaute Occasionnel

• 22 Septembre 2009

• #7

Re : Division par deux

regarde si c'est ce que tu recherches

 

Vote positif 0 Vote négatif