listview ,Supression par textbox,listview,feuille.

[Gilles Carl]

Bonjour,
je me présente, Gilles de Québec ,CA. classé dans la soixantaine.

aujourd'hui je sollicite votre aide,
au départ, j'ai vraiment de la misère a comprendre les variables,comment les utilisées.
j'ai trois tableau (OUTILS,MANUELS,ET SHÉMA) ainsi que trois listview dans des userforms.
Tranfers des données dans la listview ainsi que les modifications de ces données par l'entremise
de textbox fonctionne aussi.
le problème se situe au niveau de supprimer les données dans les textbox qui supprimes les données
dans listview et aussi dans la feuille concerrnée.
Quand je clique sur le bouton supprimer, une ligne se vide dans la feuille mais pas necessairement la bonne choisi.

je travaille avec windows 10 et excel office 365 2016.
en vous remerciant par avance de bien vouloir m'aider sur ce projet.
Gilles.

 

[Paf]

Bonjour,

Pour l'userform6, à l'initialisation de la listbox1, pour chaque ligne (de la feuille) chargée, le N° de ligne est stocké dans le subitem 10.

Pour supprimer la bonne ligne dans la feuille, récupérer ce N° dans le subitem 10:

With ListView1
 Ligne = .ListItems(.SelectedItem.Index).ListSubItems(10).Text ' récupération du N° ligne
 Sheets("SHÉMA").Rows(Ligne).Delete Shift:=xlShiftUp            ' suppression ligne feuille
 .ListItems.Remove (ListView1.SelectedItem.Index)                    'suppression ligne listview
End With

Il faudrait également prévoir l'effacement des textbox ...

pour l'userform1 : subitem 10 également, et pour userform3 : subitem 9

A+

 

[Gilles Carl]

Bonjour Paf et forum,

Apres avoir fait les modifications que vous m'avez suggérées, tout fonctionne bien.
Merci d'avoir pris le temps de m'aider. 🙂
Bonne journée Gilles.