Inputbox : éliminer le message d'erreur

[lesuisse]

Bonjour aux Suisses, Frenchies, Allemands, et tous les autres...

Je viens de créer une macro avec une inputbox.
Seulement lorsque je clique sur le bouton "CANCEL" de cette fameuse INPUTBOX, y'a le message d'erreur qui apparait.
Comment faire pour que ce message d'erreur n'aparaisse pas ?

Merci d'avance !

Le Suisse de Bâle

Ci-joint la macro :

Dim AA As String
AA = InputBox("Enter the AA you want", "AA")

For Each Cell In Sheets(AA).Range("A:A")
If Not IsEmpty(Cell) Then
If Cell = AA Then
Cell.EntireRow.Cut Sheets("Working").Range("A" & Sheets("Working").Range("A65536").End(xlUp).Row + 1)
End If
End If
Next Cell

 

[sylsyl]

Salut,

Je pense qu'un simple:
if AA="" then
exit sub
end if

Lorsque tu click sur Cancel, une inputbox te retourne un string vide.

A++, sylsyl.

 

[lesuisse]

Salut sylsyl !!

Parfait !
Ca marche "tip top" comme dirait les suisses allemands...

Je te remercie et te souhaite une bonne fin d'après-midi !

@ +

Le Suisse