suppresion

[guillaume]

bonjour le forum

Dans Userform de mise jour j'ai une partie SUPPRESSION qui me supprime la feuille nommée correspondant au nom de la colonne C,j'aimerais aussi supprimer le nom prenom et l'unite qui etaient en rapport avec cette feuille

merci a tous et bonne soiree

Sub Macro1()
If Range("a1") = 0 Then Exit Sub
name = Sheets("Feuil1").Range("A1") '
Sheets(name).Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil1").Select


Application.CutCopyMode = False



Range("A1") = ""
Userform1.Hide

 

[Robert]

Salut Guillaume, salut le forum,

En pièce jointe ton fichier modifié...

À plus,

Robert

 

[guillaume]

bonsoir Robert
merci beaucoup pour ta collaboration, c'est ce que je souhaitait

 

[G]

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim x As String 'déclare la variable x
Dim li As Byte
x = Range("a1").Value 'définit la variable x
Sheets(x).Select 'sélectionne la feuille
ActiveWindow.SelectedSheets.Delete 'supprime la feuille
Sheets("Feuil1").Select 'sélectionne la feuille "Feuil1"

li = Userform1.ListBox1.ListIndex + 2

If Range("a1") = "" Then Exit Sub 'sort de la procédure si A1 est vide
Range(Cells(li, 3), Cells(li, 5)).ClearContents 'supprime la correspondance

Application.CutCopyMode = False 'désactive le mode copie
Range("A1") = "" 'efface le contenu de A1

Unload Userform1 'vide et ferme l'UserForm1
End Sub

 

[Guillaume]

rebonsoir le forum

je viens d'essayer la solution proposer par Robert c'est impeccable sauf un petit probleme suite a cette ligne de code{ActiveWindow.SelectedSheets.Delete 'supprime la feuille},j' ai une boite de dialogue excel qui apparait, si je clique sur OK impeccable mais si je clique sur annuler petit probleme .Donc est il possible d'arreter la macro si l'on clique sur annuler

merci


Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim x As String 'déclare la variable x
Dim li As Byte
x = Range("a1").Value 'définit la variable x
Sheets(x).Select 'sélectionne la feuille
ActiveWindow.SelectedSheets.Delete 'supprime la feuille
Sheets("Feuil1").Select 'sélectionne la feuille "Feuil1"

li = Userform1.ListBox1.ListIndex + 2

If Range("a1") = "" Then Exit Sub 'sort de la procédure si A1 est vide
Range(Cells(li, 3), Cells(li, 5)).ClearContents 'supprime la correspondance

Application.CutCopyMode = False 'désactive le mode copie
Range("A1") = "" 'efface le contenu de A1

Unload Userform1 'vide et ferme l'UserForm1
End Sub

 

[Robert]

Re Guillaume, le forum,

C'est vai, c'était pas du tout au point mon truc... Maintenant ça devrait aller mieux. On pourrait aussi carrément supprimer le message d'alerte, mais comme il s'agit d'une feuille que l'on supprime, mieux vaut être prudent.

À plus,

Robert

 

[Guillaume]

C'est merveilleux Robert,ungrand merci pour ton aide
bonne soiree a tous et a bientot............