Supprimer onglet et ligne

Re : Supprimer onglet et ligne

Bonsoir dreamseb,

Avec des macros on peut tout supprimer, mais...

mais,

mais il faudrait comprendre ta problématique.

Peux-tu nous en dire davantage ?

Avec un fichier joint, par exemple...

Ce que tu as ce que tu souhaites à côté.... (suis pas toujours macros)

A te lire.

Jean-Pierre.

Re : Supprimer onglet et ligne

Bonsoir à tous et merci pour ton aide Jean-Pierre,

En fait, c'est un petit utilitaire pour créer des devis à partir d’un modèle.

A chaque fois que j’ai remplis mon modèle je « l’archive », ce qui me créé :

(1) Une copie de mon devis (dans un autre onglet)
(2) Une ligne avec les informations que je pense essentielles dans un tableau de synthèse où sont tout mes devis.

Je souhaiterais, lorsque je suis sur ma copie (créée en (1)), pouvoir la supprimer et dans le même temps, que cela supprime la ligne correspondant à ce devis dans mon tableau (renseigné en (1)).

Pour cela, mes devis étant repérables par leur référence, prenons un exemple :
Je suis sur la copie du devis (créée en (1)), dont la référence qui est dans la cellule A1 serait XYZ.
Je supprime cet onglet actif + dans mon tableau de synthèse, la ligne (créée en (2)) de la colonne 1 qui contient XYZ.

J’espère avoir répondu sans t’embrouiller !!

Cordialement,

Re : Supprimer onglet et ligne

Re,

Non, la lecture de ton texte ne m'aide pas. Et sans modèle je suis pommé.

Peut-être pas suffisamment attentionné...

Je vais y réfléchir... mais pas gagné.

Jean-Pierre

Re : Supprimer onglet et ligne

Bonjour,

Voici le code que tu souhaites : à noter qu'une fois la ligne supprimée, il sort (à voir si tu peux avoir plusieurs lignes avec le même N° de devis)

Sub supp()
Dim Num As String

Num = [A1].Value 'cellule A1 ayant le N° de devis

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete 'supprime la feuille active
Application.DisplayAlerts = True

Sheets("Devis").Select 'sélectionne la feuille avec le tableau de synthèse

For i = 2 To [A65000].End(xlUp).Row 'Commence à partir de la ligne 2
If Cells(i, 1) = Num Then 'ou 1 est la colonne A
Rows(i).Delete
Exit Sub
End If
Next

End Sub

@ +

Juju

Re : Supprimer onglet et ligne

Excellent !!!

Merci beaucoup.... c'est exactement ça !!!

Merci 😉