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

Supprimer ligne sur différents feuilles via listbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aeque
  • 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 !

S'inscrire
A

aeque

XLDnaute Occasionnel
Bonjour le fofo

Je reviens encore vers vous car mes recherches ont été infructueuse.
Voilà dans ma ListBox, je sélectionne une ligne, les détails apparaissant dans des TextBox pour être modifiés. Ensuite quand je clique sur une CheckBox cette ligne se supprime à la fois dans la ListBox et sur ma feuille Excel

Voilà le code

Code: 
Private Sub CommandButton1_Click() 'bouton "modifier"

For x = 1 To 6

    With ListBox1

    If CheckBox1 = True Then 'si checkbox cochée
    .RemoveItem (.ListIndex) 'supprime la ligne dans la listbox
    Rows(.ListIndex + 5).Delete 'supprime la ligne dans la feuille
    Else

     Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value 

    End If

    End With

Next x

Unload Me 

End Sub


Maintenant j'aimerai savoir comment il serait possible de supprimé cette même ligne sur deux autre feuilles. Sachant que ces 3 feuilles sont identiques dans leur structure

Merci
 
Trier par date Trier par votes
Re : Supprimer ligne sur différents feuilles via listbox

Bonjour,

peut être ainsi :
Code: 
If CheckBox1 = True Then 'si checkbox cochée
    .RemoveItem (.ListIndex) 'supprime la ligne dans la listbox
    Rows(.ListIndex + 5).Delete 'supprime la ligne dans la feuille
Sheets("NomFeuille2").Rows(.ListIndex + 5).Delete  
Sheets("NomFeuille3").Rows(.ListIndex + 5).Delete     
   
Else

     Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value 

    End If

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Supprimer ligne sur différents feuilles via listbox

bonjour le fil

dsl de revenir sur cette discussion mais comment faire pour empêcher la copie des données d'une textbox sur une feuille en particulier (ici la textbox 6)

Code: 
Private Sub CommandButton1_Click() 'bouton "modifier"
Application.ScreenUpdating = False
For x = 1 To 6
    With ListBox1
    If CheckBox1 = True Then 'si checkbox cochée
    .RemoveItem (.ListIndex) 'supprime la ligne dans la listbox
    Rows(.ListIndex + 4).Delete 'supprime la ligne dans la feuille
    Range("A1048576").End(xlUp).Offset(-1, 0).Copy 'copie la formule de la dernière cellule pleine de la colonne 1
    Cells(.ListIndex + 4, 1).PasteSpecial 'colle la formule en colonne 1
    Sheets("Tracking TBT").Rows(.ListIndex + 4).Delete
    Sheets("Tracking TBT").Range("A1048576").End(xlUp).Offset(-1, 0).Copy
    Sheets("Tracking TBT").Cells(.ListIndex + 4, 1).PasteSpecial
    Sheets("Tracking Safety Meeting").Rows(.ListIndex + 4).Delete
    Sheets("Tracking Safety Meeting").Range("A1048576").End(xlUp).Offset(-1, 0).Copy
    Sheets("Tracking Safety Meeting").Cells(.ListIndex + 4, 1).PasteSpecial
    Else
    
Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value 'On écrit dans chaque colonne les valeurs des différents controls

Sheets("Tracking TBT").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value

Sheets("Tracking Safety Meeting").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value
    End If
    End With
Next x
Application.ScreenUpdating = True




voilà mon pb se situe ici, j'aimerai exclure la textbox6 à ces 2 niveaux
Code: 
Sheets("Tracking TBT").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value

Sheets("Tracking Safety Meeting").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value

Merci
 
Vote positif 0 Vote négatif
Re : Supprimer ligne sur différents feuilles via listbox

Bonjour,

essaye peut être ceci :

Code: 
If x = 6 Then Exit For
Sheets("Tracking TBT").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value

Sheets("Tracking Safety Meeting").Cells(.ListIndex + 4, x + 1) = Me.Controls("TextBox" & x).Value
    End If
    End With
Next x

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

N
  • Question Question
Listbox click
Réponses
10
Affichages
663
ChTi160
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
578
chinel
W
  • Résolu(e)
XL 2019 Cacher le signe de retour à la ligne dans une ListBox d'Userform
Réponses
5
Affichages
208
Webperegrino
W
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
332
job75
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
740
Dranreb
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
530
KTM
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
253
anthoYS
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
406
escudo
E
N
  • Résolu(e)
Microsoft 365 Récupération données ListBox dans TextBox
2 3
Réponses
35
Affichages
1 K
NONO14
N
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
TooFatBoy
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
454
KTM
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
733
PHIL37
P
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
264
JLR67
J
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
707
jeff1494
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…