erreur d'excution 13

[toutai]

bonjour,

j'ai une erreur de type 13 ci dessous le code:

sheets("Manquants").Activate
Range("X1").Select
ActiveCell.FormulaR1C1 = "Désignation Station"
Range("X2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-10]<>"""",VLOOKUP(RC[-10],Données!C[-20]:C[-19],2,FALSE),"""")"
Selection.AutoFill Destination:=Range(Cells(2, 24), Cells(taille2, 24)), Type:=xlFillDefault
Range("Y1").Select
Columns("X:X").EntireColumn.AutoFit
Columns("X:X").Select
Selection.Copy
Range("X1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("X1").Select
Application.CutCopyMode = False


For variableotp = 2 To taille2

If Cells(variableotp, 24) = "" Then
Cells(variableotp, 24).Select
Selection.ClearContents
End If

Next variableotp

la ligne violet est celle sur lequel ca sarrete.

merci de votre aide

 

[fhoest]

Re : erreur d'excution 13

bonjour le fil,
as tu mis dim varaibleotp as long en debut du sub ?
si pas essai avec.
A+

 

[jpb388]

Re : erreur d'excution 13

Bonjour
pour moi il manque .text (ou . value selon les cas) à ton Cells(variableotp, 24)
a+
jpb

ps: le "" est du string il faut donc comparer du string avec du string hors là tu compare un objet avec du string
à mon avis le problème vient de là

 

[toutai]

Re : erreur d'excution 13

bonjour le fil,
as tu mis dim varaibleotp as long en debut du sub ?
si pas essai avec.
A+

non j'ai mis Dim variableotp As Integer

 

[jpb388]

Re : erreur d'excution 13

ta variable etant integer la ligne doit etre

If cstr( Cells(variableotp, 24).value) = ""

jpb

 

[fhoest]

Re : erreur d'excution 13

remoi,
c'est juste le .value manque a ton code je n'avais pas precuté,
Taille2 va jusque combien?
met un long on ne sait jamais .
A+

 

[Fo_rum]

Re : erreur d'excution 13

Salut

Ton erreur vient d'une mauvaise déclaration de variableotp ou taille2.

Ces 2 variables sont sensées représenter un numéro de ligne donc être toutes 2 déclarées en Nombre.
Si tu les déclares de préférence, en Byte ou Integer ou Long (voir l'aide pour ces types), ton code fonctionnera.

Un peu de ménage quand même.
Tu peux simplifier ce code ainsi :

For variableotp = 2 To taille2
  If Cells(variableotp, 24) = "" Then Cells(variableotp, 24).ClearContents
Next

Un peu de logique aussi.
Pourquoi effacer des cellules vides ?
.Clear se comprendrait mieux (suppression de tout: contenus, couleurs de Police, de Fond, bordures ... entre autres).