Supprimer ligne sur différents feuilles via listbox

[aeque]

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

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

 

[Pierrot93]

Re : Supprimer ligne sur différents feuilles via listbox

Bonjour,

peut être ainsi :

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
@+

 

[aeque]

Re : Supprimer ligne sur différents feuilles via listbox

Merci beaucoup Pierrot93 premier test concluant 😉

Peut être aurais tu une idée sur un de mes autres soucis

https://www.excel-downloads.com/threads/listbox-qui-agit-sur-texbox-et-combox.158164/

Merci

 

[aeque]

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)

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

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

 

[Pierrot93]

Re : Supprimer ligne sur différents feuilles via listbox

Bonjour,

essaye peut être ceci :

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
@+

 

[aeque]

Re : Supprimer ligne sur différents feuilles via listbox

Merci bcp Pierrot93 !!!!!!!!!!!!!!!!!!!!