MSGBOX tant que presspapier vide (ou tant que erreur)

Le 11/07/2014 à 10:42

Bonjour,

je fais appel à vous car j'ai un soucis de bouclage. Je souhaiterais que cette boucle affiche le meme message tant que la base n'a pas été collée.

Structure de la boucle :

Message "Veuillez copier la base"

Si cellule vide alors coller le presspapier

Si rien dans le pressepapier réafficher le message "Veuillez copier la base"

Autrement si la celule collée = "Base" alors faire la procédure sinon afficher le message "Veuillez copier la base" et recommencer la boucle

 
While range("A1") <> "Base"
    Msgbox "Veuillez copier la base"
    Sheets(1).Select
    Range("A1").Select
    ActiveSheet.Paste
Wend

Le problème c'est qu'en cas de presspapier vide cette boucle génère une erreur.

Une idée ? Je n'ai pas réussit non plus avec la fonction On Error GoTo

Merci d'avance

Le 11/07/2014 à 13:08

La librairie user32 contient la fonction countclipboardformats qui te permet de compter le nombre de nombre de formats différents dans le pressepapier

Tu la déclares ainsi

32bits

Declare Function CountClipboardFormats Lib "user32" () As Long

64bits

Declare ptr Function CountClipboardFormats Lib "user32" () As Longptr
Function IsClipboardEmpty() As Boolean
IsClipboardEmpty = (CountClipboardFormats = 0)
End Function

Puis tu l'appelles.

Sauf que si tu boucles... Le code ne va jamais s'arrêter, il faut donner la possibilité a l'utilisateur de faire l'opération.

Rechercher des sujets similaires à "msgbox tant que presspapier vide erreur"