Macro Valeurs € ??????????

[megansport]

Bonjour à tous et à toutes

Je n'arrive pas à supprimer les lignes dns une colonne, je voudrais supprimer les valeurs comme par exemple "100 €" dans mon tableau, les macros que j'ai essayer ne reconnaissent pas la valeur je pense.

Si vous avez une solution ce serait sympa

Merci de votre aide

 

[megansport]

Re : Macro Valeurs € ??????????

Bonsoir
Merci la macro fonctionne, j'ai essayer de la mettre en forme pour qu'elle se genere sur plusieurs feuilles mais cela fonctionne pas " indice n'appartient pas à la selection"
Je vois pas ou cela ne fonctionne pas
Merci de votre aide

Sub test()
Dim i As Byte, x As Byte
x = Sheets.Count 'Par Exemple, ou ce qu'on veut
For i = 1 To x
Next
Sheets(i).Select
For i = 20 To 1 Step -1
If Range("A" & i).Text Like "*€" Then Rows(i).Delete
Next i
End Sub

 

[Pierrot93]

Re : Macro Valeurs € ??????????

Bonjour,

essaye comme ceci :

Option Explicit
Sub test()
Dim ws As Worksheet, i As Long
For Each ws In Worksheets
    For i = 20 To 1 Step -1
        If ws.Range("A" & i).Text Like "*€" Then ws.Rows(i).Delete
    Next i
Next ws
End Sub

bonne journée
@+

 

[megansport]

Re : Macro Valeurs € ??????????

Un grand MERCI