Bouton Annuler Application.InputBox

Bonjour,

Désolé de re-poser une question qui a déja été traiter moulte fois sur tous les forums sur Internet, mais je n'arrive pas a trouver chaussure à mon pieds parmis toutes ces solutions.

J'ai une InputBox, lorsque je clique sur le bouton Annuler, j'ai la fameuse erreur d'incompatibilité.

Voici mon code initial :

    
  Set donnees = Application.InputBox("Sélectionner une plage", Type:=8)

  LigneDebut = donnees.Row
  LigneAvDebut = donnees.Row - 1
  colonneDebut = donnees.Column
  colonneFin = donnees.Column + 8
    ......
 

Je sais que lorsque qu'on clique sur le bouton annuler l'inputbox renvoie une chaine de caractère vide. J'ai donc essayé comme conseillé sur tous les forum

    If donnees = "" Then
        Exit Sub
    End IF

Mais rien à y faire. Quelque voit-il d'où viens l'erreur ?

Bonjour,

Essaie ce code :

If donnees = Faux Then
Exit Sub
End IF

Nb : si donnée est une variable texte, il faut rajouter des guillemets

Cordialement

Bonjour,

Merci pour cette réponse rapide.

Mais cela ne marche toujours pas en revanche.

En revanche lorsque je retire Set devant données. Le bouton annuler fonctionne sans problème, mais lorsque dans l'inputbox je sélectionne une plage je reçois l'erreur de compatibilité 13.

Une piste ?

Ccomment avez vous déclaré la variable donnees (string, range, long...)?

J'ai déclaré comme étant un Range

Re,

Je propose de la bricole :

• déclarer donnees comme du texte (string)
• mettre les codes suivant

donnees = Application.InputBox("Sélectionner une plage", Type:=8)

If donnees = "Faux" Then
Exit Sub
End If

- Chaque foi que vous avez besoin de la variable donnees, il faut juste mettre "range(donnees)" a la place (comme la variable sera du texte ça ne posera pas de pb)

En espérant avoir été clair

Cordialement