Contenu récent par Harry Khauver

Bonjour, Merci à tous ceux qui se sont mobilisés pour résoudre mon petit problème. Cordialement H.K.

Cela fonctionne parfaitement. Un tout grand merci H.K.

Bonjour, La formule est: =SOMME(A1:J1) C'est gentil

Bonjour à tous, Merci de votre aide mais je crois que ma demande est probablement irréalisable. J'ai peut-être placé la barre un peu trop haut pour un "vieux" novice en matière de VBA. Je vais me contenter d'une formule "SI". Cordialement et encore merci à tous. H.K.

Merci. Je vais essayer.

Dans "Feuil1"

J'ai fait un "copier/coller" de ta procédure et rien ne se déclenche. Je crois que je vais arrêter de vous embêter avec mes problèmes. Vous finirez peut-être par vous lasser. Merci pour tout H.K.

La B5 est un nombre fixe La B3 est une somme de plusieurs cellules H.K.

La B5 est fixe, la B3 par formule

Ca fonctionne uniquement si je clique sur "Exécuter". Ce que je souhaite c'est une application automatique. Merci de ton aide. H.K.

Cela fonctionne uniquement si je clique sur "Exécuter". J'aimerais une exécution automatique. Merci de ton soutien Cordialement H.K.

Re Je viens de faire un essai et il s'avère que le format heure est probablement le frein au fonctionnement. Avec un format nombre si je demande l'exécution le msgbox apparaît. H.K.

Désolé mais ne fonctionne pas alors qu'avec mon exemple du début cela fonctionnait mais unique ment si je demandais l'exécution

Bonsoir, Merci de ta réponse. J'ai fait un copier/coller de ta réponse et plus rien ne fonctionne. Vieillesse ennemie ou code à revoir: Sub dialogue() If Val(Sheets("Feuil1").Range("B3")) > Val(Sheets("Feuil1").Range("B5")) Then MsgBox ("Quota annuel dépassé") End If End Sub H.K.