For each qui marche pas

fifi · 13 Avril 2006

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)

Code:

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 · 13 Avril 2006

Salut fifi,

essaie avec ça:

Code:

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 · 13 Avril 2006

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

à bientôt

fifi · 13 Avril 2006

@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

Code:

Dim C as variant

mais uniquement avec

Code:

im C as Range

allez savoir pourquoi ...
merci en tout cas

Jam · 13 Avril 2006

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

fifi · 13 Avril 2006

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

merci je m'en souviendrais

america78 · 13 Avril 2006

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 · 13 Avril 2006

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 · 13 Avril 2006

re-bonsoir bebere,

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

Jam · 13 Avril 2006

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 · 13 Avril 2006

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]

For each qui marche pas

fifi

XLDnaute Occasionnel

Jam

XLDnaute Accro

Bebere

XLDnaute Barbatruc

fifi

XLDnaute Occasionnel

Jam

XLDnaute Accro

fifi

XLDnaute Occasionnel

america78

Guest

Bebere

XLDnaute Barbatruc

america78

Guest

Jam

XLDnaute Accro

Bebere

XLDnaute Barbatruc

Pièces jointes

Discussions similaires