MsgBox pour obliger a sélectionner une Ligne dans ListView

[MuscatMimi]

Bonjour a tout Le Forum

Voila, dans l' Usf "GestionStock"
Quand je clique sur un item dans la ListView, toute les données de cette ligne s'affiche dans des TextBox;la Ok, ça fonctionne bien
Dans cet Usf,j'ai un Bouton "ModifierStock"qui me sert a Ouvrir l'"UserForm2" la OK ça fonctionne

Dés que je clique sur ce Bouton,il faut qu'un "MsgBox" s'affiche si toutefois
aucun Items n'a été préalablement sélectionné dans la ListView1

donc Choisir un Item, et ensuite ouverture de l'UserForme2,
avec son MsgBox actuellemnt existant


Merci de votre aide
Cordialement

 

[MuscatMimi]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Bonjour a tous

Voila un petit Up, pour remonter ce fil,
J'ai revu la description de ma demande et joint un Fichier
Bonne Journée a tous

 

[alex67800]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Bonjour Vaucluse,

Bon suis un peu rouiller depuis le temps que je ne me suis pas connecté sur le forum.
Mais peut-être en effectuant une boucle sur tes txtb au début du code pourrais suffir du genre:

For b = 1 To 20
If Me.Controls("textbox" & b).Value = "" Then MsgBox ("Veuillez selectionner un item!!!"): Exit Sub
End If
Next b

Suis plus très s^r de la synthaxe mais c'est dans l'esprit lol.

 

[MuscatMimi]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Bonjour Alex
merci de répondre ;mais ça fonctionne pas du tout
code pas bon

Désolé

 

[Fo_rum]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Salut,

Bouton 12 ou 13 ? Essaie d'ajouter les lignes en gras :

Private Sub CommandButton13_Click()
  Dim b As Byte  'déclare la variable b
  Dim rep As String
 [B] Dim n As Byte, une As Boolean[/B]
  'aucune ligne sélectionnée : message et quitte
  [B]For n = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(n).Selected = True Then une = True
  Next
  If une = False Then MsgBox "Il faut sélectionner une ligne !  ", , "": Exit Sub[/B]
  'une ligne sélectionnée
  rep = MsgBox("Vous allez modifier votre Stock " & Chr(10) _
             & Chr(10) & "attention a ne pas faire d'erreur", vbYesNo)  ' = vbNo Then 'rep =
  Select Case rep
...

 

[MuscatMimi]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Bonjour Fo Rum

alors la bravo, plus fort que moi
Merci beaucoup
Ton Code Proposé fonctionne a merveille
Aprés des heures a chercher,tu m'a sauvé la vie
merci encore
a ++++sur ce Forum

 

[alex67800]

Re : MsgBox pour obliger a sélectionner une Ligne dans ListView

Bonjour Alex
merci de répondre ;mais ça fonctionne pas du tout
code pas bon

Désolé

Bonjour Vaucluse,
C'est bien ce que je disais ke suis rouillé lol;

Mais tout est bien qui finis bien!😉