XL 2010 Résolu par Chris, Lone-Wolf et DoubleZéro : msgbox : affichage et temps de fermeture

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Tout d'abord, je vous souhaite une très belle année pleine de bonheur et de réussite pour vous et ceux que vous aimez.

En ce 1er janvier, je m'en remets déjà à vous LOL,

Ce n'est pas bloquant, mais j'aimerais distinguer mes affichages msgbox en deux catégories :
1 - affichage bloquant avec clic sur ok ou "oui ou non",
2 - affichage informatif sans le bouton ok avec fermeture automatique.

C'est le 2 qui que pose un petit problème
est-il possible ? :
- de réduire le temps (dans le fichier joint 1 seconde) à 0.5,
- qu'il n'y ait pas le OK dans le msgbox.

Malgré mes recherches et essais, je n'y suis pas arrivé.
Il semblerait, d'après mes visites sur le net, qu'il n'y aurait pas d'autre possibilité que de passer par un UserForm et ça, je ne sais pas faire.
Si on peut l'éviter, je préfèrerais mais sans autre solution, je prends LOL

Je joins un fichier test.
Avec mes remerciements,
Bonne journée à toutes et à tous,
Amicalement,
Lionel,
 

Pièces jointes

  • test msgbox temporelle ss OK.xlsm
    57 KB · Affichages: 37

Lone-wolf

XLDnaute Barbatruc
Chris, Chris attend!!! :eek:

J'ai un formulaire avec listbox qui prend le numéro de ligne. En cliquand sur l'index, j'aimerais supprimer la ligne en se basant sur le numéro de ligne et non la valeur.Tu pourrais, s'il-te-plaît, corriger le code. Merci infiniment.
 

Pièces jointes

  • ListBox1 + Rows.xlsm
    18.8 KB · Affichages: 37

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Chris, Chris attend!!! :eek:

J'ai un formulaire avec listbox qui prend le numéro de ligne. En cliquand sur l'index, j'aimerais supprimer la ligne en se basant sur le numéro de ligne et non la valeur.Tu pourrais, s'il-te-plaît, corriger le code. Merci infiniment.

J'ai trouvé ce code également :
Code:
'supprimer la ligne dont la cellule en colonne C est identique à ce qu'il y a dans la textbox5 lorsque je clique sur le bouton 36
Sub Bouton36_Cliquer()
Dim rng As Range
Dim tx As String
    If Sheets("Accueil").TextBox5 = "" Then Exit Sub
    tx = Sheets("Accueil").TextBox5.Value
    Do
      Set rng = Sheets("Données").Range("C:C").Find(what:=tx, LookIn:=xlValues, lookat:=xlWhole)
      If rng Is Nothing Then
        Exit Do
      Else
        Sheets("Données").Rows(rng.Row).Delete
      End If
    Loop
End Sub
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re DoubleZero,

Elle me plait bien cette version sans userForm et pourtant toutes mes recherches disent que ce n'est pas possible sans UserForm.
C'est donc magique.
J'ai un tout petit souci.
J'aimerais que le msgbox s'affiche centré dans l'écran.
Je n'arrive pas à trouver comment faire.
Merci pour cette version :)
A la maison : c'est sans modération LOL ;)
Amicalement,
Lionel,
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG