Bonsoir le forum

Bonsoir Exso

   J'interviens sur ton post en qualité de "conseiller" et non pour résoudre ton problème (les formules je n'y connais pas grand chose voire rien du tout ).  

   Mon conseil, à la lecture de ton post (et de nombreux autres posts sur cet Excellent forum), il s'avère que l'on ne peut se rendre compte du problème lors de la lecture du message car trop évasif. Il serait judicieux pour une "meilleure visibilité" de joindre un fichier anonymisé.

Bonne soirée

@ +

Bonsoir le forum

Bonsoir CedH

      La différence me semble flagrante (il va falloir revoir tes bases du VBA ?). Pour résumer (attention je n'intervient qu'en qualité de bidouilleur de VBA et non programmeur au sens stricte du terme comme notre ami MdF et les autres ici présent) : La MsgBox reste et ne restera exclusivement qu'une boîte de dialogue entre l'utilisateur et le programme, qui retourne une valeur en fonction du choix de l'utilisateur (Lui appliquer une déclaration "Api Windows" la détourne de sa fonction initiale tout en restant limitée MAIS reste une avancée quant à l'austérité de cette boîboîte). A l'aide d'un UserForm, tu construit purement et intelligemment une application de A à Z avec tous les contrôles qu'elle renferme.

Ceci est et ne rest que mon point de vue (qui devrait être partagé par d'autres mais j'attends leur avis).    Bonne soirée (devant le débat avec notre Président).

@ +

Bonsoir le forum

Bonsoir mimi2a

      Ce n'est pas quelques instants pour moi mais plusieurs heures. J'ai bidouillé en VBA il y a longtemps en qualité de novice (Actuellement je suis à moins 10) mais j'ai réussi (enfin j'ai fait ce que j'ai pu) à réaliser ceci qui j'espère te conviendra. Après, il faudra attendre les autres forumeurs forumeuses pour paufiner.

1// Atteindre 1ère cellule vide dans colonne  (Ici colonne A)
Range("A1").End(xlDown).Offset(1, 0).Select

2// Atteindre dernière cellule remplie dans colonne (Ici colonne A)
 Range(« A » & [A65536].End (xlUp).Row).Select

3// Atteindre 1ère cellule vide dans ligne (ici ligne1)
Range("IV1").End(xlToLeft).Offset(0, 1).Select

4// Atteindre dernière cellule remplie dans ligne (Ici ligne 1)
Range("IV1").End(xlToLeft).Select

5// Ecrire dans une cellule
Range(“A1”).Value =  " Coucou "

6// Afficher le contenu d’une cellule 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Range("A1").Value = Target.Value
 End Sub

7// Afficher la position d'une cellule contenant une valeur (Ici "coucou")
Sub positionMaCell()
 Dim x As Range, a As String, l As Integer, c As Integer
 Set x = Cells.Find("coucou", , xlValues, xlWhole, , , False)
 If Not x Is Nothing Then
     a = x.Address(0, 0)
 End If
 MsgBox (a)
End Sub

Bonne soirée

Bonjour le forum

Bonjour MdF, bonjour CedH

  Je viens de regarder (je n'en suis qu'au début) l'article de notre ami MtDearFriend et je m'aperçois qu'il a mis en ligne une oeuvre qui cerne ton souhait. Tout à l'air clair et bien expliqué. Tu peux réaliser avec cette boîte de dialogue ce que je t'ai fait sommairement avec un USF.

Bonne journée

Re,

  Sans nouvelle de ton projet et avant d'aller me coucher, voici un exemple réalisable avec un USF. C'est basic mais tu ne m'as rien indiqué pour m'orienter.

@ +

Re le forum

Re CedH

    Je cois que ce qu'il te faut est un UserForm et NON une MsgBox qui n'a pas réellement cette fonction !!!

  Je ne suis pas un pro mais où en es-tu de ton projet ??  N'aurais-tu pas un fichier anonymisé à mettre en ligne ??

@ +

Re le forum

Re les intervenants,

      Quelles sont les destinations de tes boutons (à part le bouton "annuler" ..lol).

Qu'est censé faire le bouton 1, le bouton 2 et le bouton 3 ????

@ +

Re le forum

Re CedH, bonsoir MyDearFriend

   Bon bah !!! ça c'est fait donc je ne reviens pas la-dessus.

Bonne soirée

Bonsoir le forum

Bonsoir CedH

   Qu'entends tu par trouver le code ?? La boîte de dialogue est une MsgBox ??

A te lire

Bonsoir au forum & à son modérateur

Bonsoir à toutes & à tous

  Je viens vers vous car j'ai tenté (mon niveau en vBA est faible) d'appliquer une application de MdF (cellules clignotantes)  à mon petit projet mais en vain. J'ai beau retourner le problème dans tous les sens, ce n'est pas ça, il manque un petit plus.  Le but est qu'une alarme visuelle (voire sonore en plus mais bon...) se déclenche si l'écart est supérieur à 0.6 en F28.

  Merci à la personne qui voudra bien se pencher sur mon blème.

Ericcool