Discussion :

[Maiden002]

Bonjour,

Je cherche a pouvoir supprimer une ligne et une feuille en même temps.

Je m'explique j'ai une page principal avec des lignes dans un tableau et un bouton supprimer et des feuilles aussi.

J'ai une valeurs identiques entre mon tableau(feuille) et ma feuille qui est une références.

En faites dans mon tableau dans la colone A il y a la reference d'un produit et automatiquement j'ai une feuille avec comme nom cette références.

Ex : tableau => reference => "ordinateur"
feuille => nom de feuille => "ordinateur"

Ce que je souhaiterai faire, c'est quand je clique sur mon bouton supprimer de mon tableau qu'il me supprime m'a ligne mais avant il va chercher ma valeur de ma ref et trouver la feuille qui porte le meme nom et l'a supprimer.

Avez vous une idée, car je tourne autour du pot depuis pas mal de temps.

Merci beaucoup

[Krovax]

Bonjour,
en lisant le titre de ce post je me suis dit tiens j'ai l'impression d'avoir déjà vu ce problème, je fait un recherche et je tombe sur ce poste
VBA - Suppresion ligne/feuille créé par Maiden002

D'ailleurs ma dernière proposition est toujours sans réponse de ta part...

[Victor1]

Bonjour Krovax, Maiden002,

Je vais en profiter pour rebondir sur la question de Maiden... Mon problème est légèrement différent, mais je n'ai pas vraiment réussi à adapter le code de Krovax à mon cas !
Voila, j'ai une liste dans une cellule avec les valeurs "Yes" et "No". Ce que j'aimerais, c'est que si la valeur de la dite cellule est "No", une feuille soit supprimé...

[Krovax]

tu boucle sur les cellule de ta colonne
les no sont en colonne 2 (soit B) le nom de la feuille en colonne 1 (soit A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i = derniereligne to 2 step -1
if cells(i,2)="No" then
sheets(cells(i,1)).delete
rows(i).delete 'supprime la ligne
end if
next i

Noubli pas les display alerte

Pour connaitre la dernière ligne d'une colonne regarde dans le forum http://www.developpez.net/forums/d45...gnees-feuille/

edit : il vau quand même mieux ouvrir un sujet a chaque question et ne pas se mettre a deux sur le même

[Maiden002]

Bonjour Krovax,

Je suis désolé j'ai complétement oublier que j'avais d'une part créer un sujet sur ce théme, et j'avais meme pas vu que tu m'avais répondu.

Encore désolé, je vais utilisé le code que tu m'a donner dans l'autre sujet et je te dirai ce qu'il en est.

[Maiden002]

J'ai appliquer le code que tu m'avais donné et je lé adapté a un autre que tu m'avais donné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
   Dim ldeb As Long
            Dim lfin As Long
                ldeb = 14 'première ligne du tableau pouvant etre dupprimé
                lfin = 100 'dernièreligne du tableau pouvant être supprimé
 
 
                If Not Intersect(Target, Range("I" & ldeb & ":I" & lfin)) Is Nothing And Target.Count = 1 Then
                        Select Case MsgBox("Voulez vous supprimer la ligne " & Target.Row & " ?", vbOKCancel + vbQuestion)
                        Case vbOK
                        Application.DisplayAlerts = False
                        Sheets(Sheets("feuille").Range("A" & i)).Delete
                        Sheets("feuille").Rows(i).Delete
                        Application.DisplayAlerts = True
                        End Select
                End If
 
End Sub

Qu'en pense tu ?

Il y a une ligne que je comprends pas vraiment (encore désolé je débute en VB)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Sheets("feuille").Range("A" & i)).Delete

Que signifie cette ligne ?? Car enfaite quand j'exécute le code il me dit une erreur a cet ligne (i = Vide)