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]