Macro division valeur cellules non vides

[Kalix]

Bonjour,

J'aurai besoin de créer une macro qui divise par 100 le contenu des cellules non vides de la colonne A.
Merci de votre aide.

Kalix

 

[Celeda]

Bonjour,

Juste pour ma curiosité féminine personnelle : pourquoi une macro ?

Merci

Celeda

 

[Kalix]

Re,

pour satisfaire ta curiosité : plus précisément c' est à inclure dans une macro que je fais pour formattage d'un fichier (avant upload ds un datawarehouse).

A+

 

[Kalix]

Pour info, j'avais fait ça avec l'enregistreur de macro mais je récupere des zéros pour les cellules vides que je dois ensuite supprimer.Il doit y avoir moyen de faire mieux.....
Columns('B:B').Select
Selection.Insert Shift:=xlToRight
Range('B1').Select
ActiveCell.FormulaR1C1 = '=RC[-1]/100'
Range('B1').Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns('B:B').Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns('A:A').Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft

Merci

 

[Alain]

Bonjour,

Tu peux essayer le code qui suit :

Sub DivisionPar100()
Dim c As Range
Dim DerniereLigne As Integer
DerniereLigne = Range('A65535').End(xlUp).Row
Range('A1', 'A' & DerniereLigne).Select
For Each c In Selection
If IsNumeric(c.Value) And Not IsEmpty(c) Then
c.Value = c.Value / 100
End If
Next
End Sub

Je pense çà devrait marcher.


Bonne fin de journée.

 

[PascalXLD]

Bonjour

Dans le même ordre d'idée mais sans passer par le select (c'est toujours plus propre quand on peut éviter)

For x = 1 to range('A65536').end(xlup).row
if range('A' & x)<> '' then range('A' & x)=range('A' & x)/100
next

Bon après-midi

Message édité par: Pascal76, à: 04/03/2005 13:34

 

[Kalix]

Re,

Merci à vous....

Kalix