Microsoft 365 Modifier et supprimer dans listview

Dem8 · 20 Mars 2022

Bonjour à tous,

Je reviens avec le même fichier (ranger des échantillons dans un stockage, ajouter ces échantillons dans une base de données puis pouvoir effectuer des recherches, des modifications ou des suppressions) mais avec un autre problème : je n'arrive pas à modifier ou supprimer un échantillon de la listview et de la base de données quand je le sélectionne et que je clique ensuite sur un bouton de commande.

En ce qui concerne la modification, je n'ai trouvé aucun code que je ne parvienne à comprendre, adapter et faire fonctionner.

Pour la suppression, j'ai adapté deux codes qui n'ont pas donné le résultat escompté : le premier supprimait uniquement la ligne dans la listview, et le second supprimait toujours la dernière ligne de la base de données, même quand j'en sélectionnais une autre. Du coup, ça m'a soulé et j'ai tout effacé.

Est-ce que vous pourriez m'aider pleaaaase ?

Je ne sais pas comment mon fichier va s'ouvrir chez vous, je l'ai configuré pour qu'il s'ouvre sur un formulaire sans qu'Excel n'apparaisse derrière, donc du coup, il faut cliquer sur Open the database et entrer 0000 comme mot de passe.

Cordialement,
Dem8

cp4 · 20 Mars 2022

Bonsoir,

Désolé de ne pouvoir t'aider, j'ai le message suivant sur mon Excel2010

ChTi160 · 20 Mars 2022

Bonsoir Dem8
Ce que j'ai
Mais quand même pas évident a utiliser ! (pour l'ouverture)
Jean marie

ChTi160 · 20 Mars 2022

Re
J'ai rajouté deux Lignes dans la procédure "Actualisation"

VB:

 With LstVi 'avec cette Ligne ainsi créee
  For Col = 2 To UBound(Tbl_BDD, 2) 'pour chaque colonne du tableau
   Set LstVSi = .ListSubItems.add(, , Tbl_BDD(lgn, Col)) 'on ajoute un element ,une colonne sur la Ligne "LstVi" via la variable "LstVSi"
  Next Col
 End With 'LstVi
  Next lgn
      .ListItems(1).Selected = False  '<-------- Ici 
Set .SelectedItem = Nothing      '<-------- Ici
 End With 
End With

ca evite d'avoir une ligne de sélectionnée après chargement de la ListView
Jean marie

Dem8 · 21 Mars 2022

Du coup, j'ai modifié le fichier de manière à ce qu'Excel s'affiche à l'ouverture. Le voici !

Ok Jean-Marie, je modifie ça, c'est une bonne idée !

Microsoft 365 Modifier et supprimer dans listview

Dem8

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Dem8

XLDnaute Nouveau

Pièces jointes

Discussions similaires