selection cellule differents de vide et format %

[Malka]

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]

Re : selection cellule differents de vide et format %

Bonjour Malka

A tester:

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

 

[JNP]

Re : selection cellule differents de vide et format %

Bonjour le fil 🙂,
une autre proposition

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]

Re : selection cellule differents de vide et format %

Bonjour PierreJean & JNP !

Ca marche impec ! 😛

Merci beaucoup 😉
Bon WE

Malka