Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer valeur par rapport à 2 Userform

  • Initiateur de la discussion Initiateur de la discussion Titoy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

Titoy

Guest
Bonjour Le forum !

Aujourd'hui, j'essai tant bien que mal de trouver une solution pour supprimer d'une feuille grâce à une valeur choisi dans des userform !

La procédure est comme suit:

Premier USF:
Demande le nom à supprimer via une listbox

si Validation :
DEuxième usF:
DEmande confirmation de la suppression, les valeurs étant afficher par le biais d'une textbox.

Du coup quand je veux supprimer, cela ne fonctionne pas

Je dois avoir un probleme entre ma listbox et ma textbox mais j'en sais pas plus !

CI-joint fichier explicatif,

Merci de votre aide

Bonne journée

Cdlmt

TITOY
 

Pièces jointes

Re : Supprimer valeur par rapport à 2 Userform

Salut Titoy,

Pas tiptop sans fichier 🙄 mais bon, on va essayer de t'aider

Pour ton code de suppression, est ce que ce ne serait pas plutôt ça

Code:
Sheets(" ANTILLES & GUYANE").Rows(9 + [COLOR=blue][B]UserForm1.[/B][/COLOR]ListBox1.ListIndex).Delete
Sheets(10).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(11).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(12).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(13).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(14).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(15).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(16).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(17).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(18).Rows(9 + UserForm1.ListBox1.ListIndex).Delete

"Me" fait appel à l'objet en cours donc UserForm2

A+
 
Re : Supprimer valeur par rapport à 2 Userform

ah Ok !

Bas ça déjà je le savais pas ! Merci !

Par contre, du coup je dois aussi modifier userform1 et listbox1, Non ?
Est ce que je peux mettre
" UserForm2.texBox1.ListIndex"
?????

Code:
Sheets(" ANTILLES & GUYANE").Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(10).Rows(9 + [B]UserForm1[/B].[B]ListBox1[/B].ListIndex).Delete
Sheets(11).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(12).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(13).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(14).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(15).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(16).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(17).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(18).Rows(9 + UserForm1.ListBox1.ListIndex).Delete


Merci
 
Re : Supprimer valeur par rapport à 2 Userform

c'est bon problème résolue mon USF ne s'appelai pas userform 1 tout simplement,

je l'ai juste renommé et ça marche merci beaucoup !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
5
Affichages
1 K
meryach
M
L
Réponses
1
Affichages
1 K
Lucien31
L
V
Réponses
2
Affichages
2 K
VOILLOT
V
J
Réponses
1
Affichages
928
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…