selection cellule differents de vide et format %

Malka · 3 Septembre 2010

Bonjour,

J'ai un tableau avec des données en € et des % (données extraites d'un ERP qui me donne obligatoirement en € ! ).
Je voudrais mettre mes valeurs en K€ (cad diviser par 1000) sauf pour les cellules avec le format %

La zone de cellule en question est D3:S1031

Si quelqu'un aurait une idée en programation vba, je suis preneuse 🙄
Merci

Malka

pierrejean · 3 Septembre 2010

Re : selection cellule differents de vide et format %

Bonjour Malka

A tester:

Code:

   For Each cel In Range("D3:S1031")
     If InStr(cel.NumberFormat, "%") = 0 Then
       cel.Value = cel.Value / 1000
     End If
    Next

JNP · 3 Septembre 2010

Re : selection cellule differents de vide et format %

Bonjour le fil 🙂,
une autre proposition

Code:

Sub Malka()
Dim Cel As Range
For Each Cel In Range("D3:S1031")
If Right(Cel.Text, 2) = "€ " Then Cel = Format(Cel / 1000, "#.##0"" k€")
Next
End Sub

Bonne soirée 😎

Malka · 4 Septembre 2010

Re : selection cellule differents de vide et format %

Bonjour PierreJean & JNP !

Ca marche impec ! 😛

Merci beaucoup 😉
Bon WE

Malka

selection cellule differents de vide et format %

Malka

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Malka

XLDnaute Occasionnel

Discussions similaires

selection cellule differents de vide et format %

Malka

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Malka

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency