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

[Usine à gaz]

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,

 

[Usine à gaz]

Merci Chris 🙂
Bon apéro 😉

 

[Usine à gaz]

C'est tout bon,
Merci Chris 🙂
Merci Lone d'avoir été là 😉
Amicalement,
Lionel,

 

[Lone-wolf]

Re Lionel

Heiiii!!! Et pis moi alors!! 😡 😀

 

[Lone-wolf]

Chris, Chris attend!!! 😱

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.

 

[Usine à gaz]

Re Lone,

j'ai pas bien compris comment fonctionne ton fichier mais j'ai le fichier en pièce jointe.
j'espère que ça pourra t'aider 🙂

 

[Lone-wolf]

Re Lionel

une V3 😉

 

[Usine à gaz]

J'ai aussi celui-là .... j'en cherche d'autres 😉

 

[Usine à gaz]

Re Lionel

une V3 😉

Je regarde ... Merci Lone sympa et efficace 😉

 

[Usine à gaz]

Re Lionel

Heiiii!!! Et pis moi alors!! 😡 😀

Lol, j'avais pas vu mais j'ai vu ensuite ( d'ailleurs tu as peut-être vu le titre modifié. 😉

 

[Usine à gaz]

Chris, Chris attend!!! 😱

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 :

'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

 

[Lone-wolf]

Re Lionel

Merci pour ton implication, mais comme expliqué avant, c'est d'après le numéro de ligne (exemple: Rows 4 - 7 - 11) de la listbox, que la macro doit supprimer la ou les lignes que j'ai choisi.

 

[Chris24]

Bonjour lone-wolf

Je va z'au cinéma, si personne n'est passé par ici ou par là je regarderai à mon retour

Bonne journée

 

[DoubleZero]

Bonjour et Heureuse Ânée à toutes et à tous,

...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...

Une autre suggestion en pièce jointe.

A tôtbien 🙂

 

[Usine à gaz]

Bonjour DoubleZéro,
Merci de m'avoir répondu,
Je vous souhaite une très belle nouvelle année 🙂
Je teste.
Amicalement,
Lionel,

 

[Usine à gaz]

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,