Select avan MsgBoxRésolu

Question

Bonjour à Tous,


J'ai un petit souci car la sélection d'une cellule ne veut pas se faire avant l'appel d'un MsgBox. Elle ne se fait qu'après la disparition du MsgBox. 
D'où ma question : comment forcer la sélection avant l'appel du MsgBox ?


Au départ la sélection est sur Cells(ligne, 2) et je voudrais qu'elle puisse se mettre en  Cells(ligne, 4) si la fonction retourne 0 avant l'apparition du MsgBox. Même avec un DoEvents après le Select ça ne marche pas !



If fnSOMMES_P(ligne) = 0 Then
   Cells(ligne, 4).Select
   texte = "  LE  MODE  DE  PAIEMENT  N'EST  PAS  INDIQUÉ  "
   MsgBox texte, vbCritical + vbOKOnly, "  ATTENTION..."
   fnOUBLI = True:  Exit Function
End If


Merci de votre aide et bonne soirée,
Amicalement de Cheyenne

cs_cheyenne · Accepted Answer

Re,

D'abord merci pour vos réponses.

bigfish_le_vrai : effectivement j'utilise bien Application.ScreenUpdating =  False, mais pas dans la procédure où se situe le problème. Par contre il est utilisé dans d'autres procédures. Normalement sous Excel 2000, le False s'annule en quittant la procédure où il se trouve.
Ce qui est icibizarre c'est que je pars d'une procédure où il y a bien le False, mais il est situé après l'appel de la fonction :

Sub Toto(y as integer)
   if fnOUBLI(y)=0 then Exit Sub
   Application.ScreenUpdating = False
   ---
   ---
End Sub

If fnSOMMES_P(ligne) = 0 Then
    Application.ScreenUpdating = True  
   Cells(ligne, 4).Select
   texte  = "  LE  MODE  DE  PAIEMENT  N'EST  PAS  INDIQUÉ  "
   MsgBox texte, vbCritical + vbOKOnly, "  ATTENTION..."
   fnOUBLI = True:  Exit Function
End If

J'ai mis Application.ScreenUpdating = True juste avant l'appel de la sélection et c'est OK, puis il se remet à False après le retour de la fonction dans la procédure appellante.

jack : non, je l'ai indiqué dans mon post, le Doevents n'agit pas

Exploreur : je connais cette API, merci quand même, mais je suis en VBA et les feuilles n'ont pas de hwnd et code n'est pas destiné à une UserForm mais bien à une feuille.

Merci encore et bonne continuation à vous.
Cheyenne

bigfish_le vrai · Answer

Salut,

je viens d'essayer et j'ai pas ce probleme !?!
la celule est bien selectionée avant l'apparition du MsgBox.

n'utiliserais-tu pas : Application.ScreenUpdating = False     quelque pardans ton code ?

A+

cs_Jack · Answer

Salut
Ton code semble correct.
Les MsgBox sont de type "system" c'est à dire qu'elle bloque tous les programmes de l'application appelante.
Je pense qu'il devrait suffire d'ajouter un DoEvents avant la MsgBox, ou du moins, après le Select afin que le PC ait le temps de rafraichir l'affichage avant ce blocage.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Exploreur · Answer

Bonsoir à tous,

Ou voir cette astuce de Econs....

A+
Exploreur

 Linux a un noyau, Windows un pépin

bigfish_le vrai · Answer

... en fait cela ne fait pas tres longtemps que je repond au questions posées sur ce site. J'en ais quand meme poster quelques une et tu es le/la premier(e) a accepter ma reponse... snif...


Merci a toi aussi.


Philippe

cs_MPi · Answer

Ne t'en fais pas Bigfish,
une grande partie des gens ne sélectionne pas le bouton "Accepté", même s'ils utilisent tes réponses... Lâche pas...

MPi²

Select avan MsgBox

6 réponses

Votre réponse

Discussions similaires