Discussion :

[Victor1]

bonjour,

Voila, j'ai un petit problème. J'ai une cellule avec une liste de choix. Deux choix sont possibles : "Yes" ou "No". J'aimerais que si l'utilisateur choisie "No", la feuille qui correspond soit supprimé... J'ai déjà posé cette question dans un autre topic : http://www.developpez.net/forums/d78...le-meme-temps/
Le problème est que je n'arrive pas à adapter le code de Krovax à mon cas. Je n'y met pas de la mauvaise volonté pourtant.

Je pense que cela vient du fait que dans le code de Krovax :

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

il fallait jouer avec la dernière ligne. L'inconvénient est que je n'arrive pas à trouver comment faire pour que ce soit la cellule et non la ligne qui soit pris en compte.

Merci de votre aide

[Krovax]

Bon dans ton code il manque

Code :

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

   DerniereLigne = Range("A65536").End(xlUp).Row

La tu as la dernière ligne de la colonne A


Ensuite ta dernière phrase je ne la comprend pas la m^me formuler autrement ca m'arrangerais bien

[Victor1]

Ce que je voulais dire, c'est que dans mon cas, la ligne ne m'importe pas, c'est la cellule qui compte. Je travaille sur les cellules D16 à D19.



Si par exemple pour le "Recycled Content", on Choisit "No", la feuille de calcul nommé "Recycled Content" doit être supprimé.... C'est plus clair ?

[Krovax]

Regarde le lien il y a une dizaine de méthode fait des test et lit les commentaire dans les exemple c'est toujours la colonne A toi tu veux la D ensuite trouve la méthode qui te correspond
Si tu as la ligne et la colonne tu as la cellule la colonne c'est la D

Après si tu veux supprimer une cellule et non un ligne utilise l'enregistreur de macro.

[Victor1]

Voila ce que j'ai essayé de faire, mais on me dit qu'il y a incompatibilité de type à la première ligne... Je comprends pas

Code :

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

1
2
3
4
5
6
7
8
9
 
For i = 16 To 18 Step 1
                If Cells("D" & i) = "No" Then
                    Sheets(Range("C" & i)).Delete
                    'Rows(i).Delete 'supprime la ligne
                End If
            Next i
        MsgBox ("D" & i)
End If

[Krovax]

Code :

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

1
2
3
4
5
6
7
 
For i = 16 To 18 Step 1
   If Cells("D" & i) = "No" Then
        Sheets(Range("C" & i).text).Delete
        'Rows(i).Delete 'supprime la ligne
   End If
Next i

Essaye celui la j'avais une erreur dans le précédent et je pense que le message box ne fera que t'ennuyer
ps : il y avait un end if de trop

[Victor1]

J'avais déjà essayer ce que tu viens de me dire et il me dit toujours incompatibilité de type. D'après le débogage, ça vient de la première ligne de code :

Code :

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

If Cells("D" & i) = "No" Then

Je comprends vraiment pas.... est ce que ça peut être du au fait qu'il y ait une liste dans ma cellule ? J'en suis à formuler toutes les hypothèses là
Le End If, il est pas de trop, j'ai mis cette macro dans un bouton... Ca peut venir de là ?

[Krovax]

J'ai pas fait atention mais tu as tou casser mon code et fait nimporte quoi

On utilise soit

Code :

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

Range("A1")

range avec une chaine de caractère pour les adresse, porrsibilité de faire de la concaténation avec le &
Soit

Code :

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

Cells(i,j)

avec i numéro de ligne et j numéro de colonne
MAIS PAS

Code :

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

Cells("A1")

Arrête la bidouille quand tu tombe sur une commande que tu ne connais pas regarde l'aide pour apprendre a l'utiliser il n'y a que comme ca que tu progressera!
Tu positionne ton curseur sur la commande et tu appui sur F1

Bon maintenant que ca c'est fait je vais comme ouskel'n'or faire mes valises, une fois que j'aurais retrouvé mon ciré