Type incompatible (erreur 13)

[philppe27]

Bonjour,

J'utilise le code suivant dans un programme:

Set test1 = Columns("B:B").Find(What:=soc1, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
J'ai utilisé ce programme de nombreuses fois et encore récemment mais depuis ce matin il plante et m'indique:
'Type incompatible (erreur 13)'
Je n'ai pas défini de variable ou de propriété. Peut-être est la cause de mon problème ?
Quelqu'un pourrait-il m'aider ?

Merci d'avance,

Cordialement.

 

[job75]

Re : Type incompatible (erreur 13)

Bonjour philppe27,

Sur le code indiqué, l'erreur provient de After:=ActiveCell

Columns("B:B").Find... renvoie une erreur si la cellule active n'est pas en colonne B 🙂

Nota : plus simple d'écrire Columns("B") ou Columns(2) non ?

A+

 

[philppe27]

Re : Type incompatible (erreur 13)

Merci job75 c'est exactement cela

 

[junior93]

Re : Type incompatible (erreur 13)

Bonjour j'ai aussi une erreur 13, pourriez vous me dire d'ou proviens cette erreur

Application.Dialogs(xlDialogOpen).Show
fichier_a_traiter = ActiveWorkbook.Name
ThisWorkbook.Activate
Sheets("Facturation").Move Before:=fichier_a_traiter("ATM")

Merci d'avance

 

[job75]

Re : Type incompatible (erreur 13)

Bonjour junior93, bienvenue sur XLD,

Syntaxe correcte :

Sheets("Facturation").Move Before:=Workbooks(fichier_a_traiter).Sheets("ATM")

Il faut bien sûr que la feuille ATM existe dans le fichier fichier_a_traiter.

Ce qui n'est pas gagné puisqu'on ouvre le fichier via la boîte de dialogue...

A+

 

[junior93]

Re : Type incompatible (erreur 13)

Merci beaucoup job75, tu me retir une epine du pieds.
Merci pour la reponse rapide et bonne continuation