Macro Excel (Chercher et effacer)

[Dzign]

bonjour,

Je suis en stage dans une entreprise pour mon bts et je dois realiser une macro excel, dans celle ci j'ai une fonction qui doit supprimer toutes les ligne dont la valeur est superieur a 0.9 (dans la colonne J dans mon cas)

Voici mon code qui ne fonctionne pas il efface n'importe quoi :
_________________________________________
Dim cel As Range, colrech
Set colrech = Range('J1:J250')
For Each cel In colrech
If cel.Value >= 0.9 Then
cel.EntireRow.Delete
End If
Next cel
__________________________________________
Si quelqu'un avait une petite idée, ca me rendrait un grand service, je vous remercie d'avance pour votre aide;

 

[pierrejean]

bonjour dzign jmps

si j'ai bien compris la question

il faudrait peut-etre s'inquieter de savoir ce que contiennent les cellules

une piste: isnumeric

il n'est pas question de passer le bts à ta place

 

[Dzign]

Merci jmps pour votre reponse si rapdide, oui c'est vrai que d'utiliser une variable intermediaire n'a pas d'interet mais j'ai tellement retouché le code et essayer tellement de chose que je suis completement perdu.
J'ai essayé le code sans la variable intermediaire et il se produit exactement le meme resultat. Ca supprime aleatoirement jusqu'a tout supprimer au bouton de 5 clicks sur mon boutons.
Encore merci pour votre aide

 

[Dzign]

merci encore pour votre aide jmps,

voici un extrait mais je pense que vous avez vu juste a la base il s'agit bien d'un fichier texte. je l'ouvre avec excel mais peut ensuite comme vous l'avez dit cela provoque un
mauvais format de cellules.

Message édité par: Dzign, à: 22/02/2006 11:56

 

[PascalXLD]

Bonjour

essaies comme ceci peut-être

Dim cel As Range
For Each cel In Range('J1:J250')
If val(cel.Value) >= 0.9 Then
cel.EntireRow.Delete
End If
Next cel

ou

Dim cel As Range
For Each cel In Range('J1:J250')
If cdbl(cel.Value) >= 0.9 Then
cel.EntireRow.Delete
End If
Next cel

Bon courage

 

[Dzign]

merci a vous ca marche avec :

Dim cel As Range
For Each cel In Range('J1:J250')
If val(cel.Value) >= 0.9 Then
cel.EntireRow.Delete
End If
Next cel

un grand merci a jmps et pascal76 pour leur aide merci sincerement

 

[PascalXLD]

RE

2 petites choses

1 - Tu peux nous tutoyer c'est plus sympa

2 - il serait peut-être utile de remettre tes cellules de la colonne j en numerique en même temps si tu as besoin de faire des calculs

du genre

Dim cel As Range
For Each cel In Range('J1:J250')
If val(cel.Value) >= 0.9 Then
cel.EntireRow.Delete
else
cel.value=val(cel.Value)
End If
Next cel

 

[PascalXLD]

RE

José peut-être bien qu'on l'aurait au moins en VBA excel mais je ne sais pas si ça existe un BTS Excel VBA :unsure:

Bonne journée à toi

 

[TOFEIGHT]

Salut,

Est-il possible d'adapter cette macro

Si la condition est : cdbl(cel.Value) > 0 Then

Et que le résultat ne doit pas être delete mais diviser chaque cellule par 100???

Merci.

 

[Dzign]

En tout cas merci encore pour vos conseils, et merci pour votre acceuil si sympatique; je prend note de vos conseil.
A vrai dire pour le Vba, ca fait 1 semaine que je suis sur ma macro, c'est pas au programme bizarement, ils doivent considerer qu'une fois le vb acqui, c'est bon pour le vba