Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Suppression d'onglets.

Suppression d'onglets.

3 réponses
Avatar
Quaisako
Re à tous,

dernier post pour ce soir.

Ce code me permet de supprimer des noms et prénoms d'une liste.

Sachant que chaque nom de la liste posséde son onglet,
que faut-il ajouter à ce code, pour qu'à chaque suppression d'un nom et
prénom,
l'onglet associé disparaisse également ?

Merci d'avance et bonne nuit.
Jipé

Private Sub CmdSuppression_Click()
Dim Msg As String
Msg = MsgBox("Etes-vous sur de vouloir supprimer " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TxtNoms _
& vbCrLf & vbCrLf & vbTab & "Prénom = " & vbTab &
TxtPrénoms & " ?", vbYesNo, _
"Classe Disciplus => Mode Supression élève ???")
If Msg = vbYes Then
ListBox1.Value = ""
With Sheets("Classe")
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
End With
Unload Me
UserForm1.Show
End If
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Quaisako,

Le code pour supprimer un onglet en utilisant une variable


dim NomFeuille as string

'Variable à renseigner dans ta procédure ...
NomFeuille = "Feuil1"

Application.DisplayAlerts = False
Worksheets(NomFeuille).Delete
Application.DisplayAlerts = True


Salutations!



"Quaisako" a écrit dans le message de news: e%
Re à tous,

dernier post pour ce soir.

Ce code me permet de supprimer des noms et prénoms d'une liste.

Sachant que chaque nom de la liste posséde son onglet,
que faut-il ajouter à ce code, pour qu'à chaque suppression d'un nom et
prénom,
l'onglet associé disparaisse également ?

Merci d'avance et bonne nuit.
Jipé

Private Sub CmdSuppression_Click()
Dim Msg As String
Msg = MsgBox("Etes-vous sur de vouloir supprimer " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TxtNoms _
& vbCrLf & vbCrLf & vbTab & "Prénom = " & vbTab &
TxtPrénoms & " ?", vbYesNo, _
"Classe Disciplus => Mode Supression élève ???")
If Msg = vbYes Then
ListBox1.Value = ""
With Sheets("Classe")
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
End With
Unload Me
UserForm1.Show
End If
End Sub
Avatar
Quaisako
Bonjour le Forum,

comment dire que "Feuil1" est = à la sélection dans la Listbox ?
Merci
Jipé

"michdenis" a écrit dans le message de news:
%

Bonjour Quaisako,

Le code pour supprimer un onglet en utilisant une variable


dim NomFeuille as string

'Variable à renseigner dans ta procédure ...
NomFeuille = "Feuil1"

Application.DisplayAlerts = False
Worksheets(NomFeuille).Delete
Application.DisplayAlerts = True


Salutations!



"Quaisako" a écrit dans le message de news:
e%
Re à tous,

dernier post pour ce soir.

Ce code me permet de supprimer des noms et prénoms d'une liste.

Sachant que chaque nom de la liste posséde son onglet,
que faut-il ajouter à ce code, pour qu'à chaque suppression d'un nom et
prénom,
l'onglet associé disparaisse également ?

Merci d'avance et bonne nuit.
Jipé

Private Sub CmdSuppression_Click()
Dim Msg As String
Msg = MsgBox("Etes-vous sur de vouloir supprimer " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TxtNoms _
& vbCrLf & vbCrLf & vbTab & "Prénom = " & vbTab &
TxtPrénoms & " ?", vbYesNo, _
"Classe Disciplus => Mode Supression élève ???")
If Msg = vbYes Then
ListBox1.Value = ""
With Sheets("Classe")
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
End With
Unload Me
UserForm1.Show
End If
End Sub





Avatar
Quaisako
Re à tous,

je me suis un peu pris la tête pour pas grand chose.

NomFeuille = ListBox1.Value
Merci michdenis.
Jipé

Private Sub CmdSuppression_Click()
Dim Msg As String
Dim NomFeuille As String

Msg = MsgBox("Etes-vous sur de vouloir supprimer " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TxtNoms _
& vbCrLf & vbCrLf & vbTab & "Prénom = " & vbTab & TxtPrénoms & " ?",
vbYesNo, _
"Classe 1MVM2 => Mode Supression élève ???")
If Msg = vbYes Then

NomFeuille = ListBox1.Value
Application.DisplayAlerts = False
Worksheets(NomFeuille).Delete
Application.DisplayAlerts = True

ListBox1.Value = ""
With Sheets("Classe")
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
'.Range("C" & NomLBindex).Value = ""
End With
Unload Me
UserForm1.Show
End If
End Sub


"Quaisako" a écrit dans le message de news:

Bonjour le Forum,

comment dire que "Feuil1" est = à la sélection dans la Listbox ?
Merci
Jipé

"michdenis" a écrit dans le message de news:
%

Bonjour Quaisako,

Le code pour supprimer un onglet en utilisant une variable


dim NomFeuille as string

'Variable à renseigner dans ta procédure ...
NomFeuille = "Feuil1"

Application.DisplayAlerts = False
Worksheets(NomFeuille).Delete
Application.DisplayAlerts = True


Salutations!



"Quaisako" a écrit dans le message de
news: e%
Re à tous,

dernier post pour ce soir.

Ce code me permet de supprimer des noms et prénoms d'une liste.

Sachant que chaque nom de la liste posséde son onglet,
que faut-il ajouter à ce code, pour qu'à chaque suppression d'un nom et
prénom,
l'onglet associé disparaisse également ?

Merci d'avance et bonne nuit.
Jipé

Private Sub CmdSuppression_Click()
Dim Msg As String
Msg = MsgBox("Etes-vous sur de vouloir supprimer " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TxtNoms _
& vbCrLf & vbCrLf & vbTab & "Prénom = " & vbTab &
TxtPrénoms & " ?", vbYesNo, _
"Classe Disciplus => Mode Supression élève ???")
If Msg = vbYes Then
ListBox1.Value = ""
With Sheets("Classe")
.Range("C" & NomLBindex).Value = ""
.Range("D" & NomLBindex).Value = ""
End With
Unload Me
UserForm1.Show
End If
End Sub