Supprimer un feuille et un ligne

[Bruno]

Je voudrais Supprimer Une feuille et Une ligne d'une autre feuille ayant le meme nom en le choisisant dans une Userform.
j'arrive a supprimer la feuille mais pas la ligne.
merci de votre aide.

Voici le code :


Private Sub Valider_Click()
ListeSupprimer.Hide
Index = SelectFeuille.ListIndex
ChoixFeuille = SelectFeuille.List(Index)

Dim Feuille As String
Feuille = ChoixFeuille
Sheets(ChoixFeuille).Select

Sheets("1.Menu").Select

msg = "Voulez-vous Supprimer ce transporteur ?"
Title = "ATTENTION SUPPRESSION !"
Réponse = MsgBox(msg, 276, Title)
If Réponse = vbYes Then

Sheets(ChoixFeuille.Value).Select
ActiveWindow.SelectedSheets.Delete
Sheets("1.Menu").Select
ActiveCell(ChoixFeuille.Value).Select
Selection.EntireRow.Delete

Else

End If
Sheets("1.Menu").Select
End Sub

 

[Marmotte3]

A mon avis tu dois déjà selectionner la feuille contenant la ligne a supprimer. ensuite fait une recherche du nom dans la feuille et supprime la ligne qui contient le nom chercher.

Pour la recherche va dans outil => macro => enregistrer une nouvelle macro.
Ensuite va dans edition => rechercher et lance ta recherche et enfin arrete l'enregistrement.

 

[STéphane]

ton instruction ci-dessous est fausse !
ActiveCell(ChoixFeuille.Value).Select

il faut écrire :
range("le_nom_ou_l_adresse_de_ta_cellule).select

ou bien
range("le_nom_ou_l_adresse_de_ta_cellule).entirerow.delete

bye