For each qui marche pas

[fifi]

bonjour
apres consultation des archives, j'ai récupéré un bout de code que j'ai retouché un peu mais ils ne marche pas

le but étant de remplacer toutes les cellules contenant le texte #valeur! (je dis texte car cela fait suite à un copié/collage spéciale)

Dim plage As Range
Dim c As Variant
Set plage = Range('C50:C54')

For Each c In plage
If c = '#valeur!' Then
     c = 1
End If
Next c
End Sub

A la ligne If c.... j'ai une erreur d'incompatibilité de type, malgres avoir définie la variable c comme Variant en désespoire de cause.


il y aurait un truc que j'ignore?

merci de m'aider

:lol:

 

[Jam]

Salut fifi,

essaie avec ça:

Sub test()
Dim plage As Range
Dim c As Variant
Set plage = Range('C50:C54')
For Each c In plage
If IsError(c) Then
     c = 1
End If
Next c
End Sub

 

[Bebere]

bonjour Fifi
déclare
dim C as Range et non as variant

à bientôt

 

[fifi]

@Bebere
justement avant il y avaot range et comme ca générait une erreur j'ai mis Variant (passe partout)
mais toujours cette erreur d'incompatibilité.

@jam
merci pour cette subtile solution
elle ne fonctionne pas avec

Dim C as variant

mais uniquement avec

im C as Range

allez savoir pourquoi ...
merci en tout cas

 

[Jam]

Ma réponse est peut-être idiote mais Variant ne peut s'appliquer à un objet...

 

[fifi]

ok ..variant ne s'applique pas a un objet..
ca doit eter ca que j'ai loupé...

merci je m'en souviendrais

 

[america78]

Bonjour,

j'ai un besoin a peu pres identique que fifi.
si ce n'est que je dois supprime tous les elements 'N/A' sur la colonne L d'une feuille excel.
jai essaye de reprendre le code propose dans ce topic mais en vain. voici ce que jai fais:

Dim plage As Range
Dim c As Range
Set plage = Range('L1:L50')
For Each c In plage
If c = 'N/A' Then
c = ''
End If
Next c

quelqu'un peut a une idee?
MErci

 

[Bebere]

bonsoir Fifi,Jam,America

Sub Macro1()
'
Dim Cel As Range
With Sheets('NomFeuille')'changer NomFeuille
For Each Cel In .Range('L1:L' & .Range('L65536').End(xlUp).Row)
If IsError(Cel) Then
Cel = ''
End If
Next Cel
End With
End Sub

 

[america78]

re-bonsoir bebere,

jai essaye ton code mais il ne marche pas....

 

[Jam]

Salut Bebere, america,

Il faut que tu mettes:

Dim plage As Range
Dim c As Range
Set plage = Range('L1:L50')
For Each c In plage
If IsError(x) Then
If x = CVErr(2042) Then x = ''
End If
Next

Bonne soirée

 

[Bebere]

rebonsoir
essaye avec pièce jointe [file name=Erreur_20060413212202.zip size=7997]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Erreur_20060413212202.zip[/file]