Discussion :

[kingjon]

Bonjour, je suis bloqué dans mon projet...
j'aimerais pouvoir supprimer une lignes à chaque fois que la valeur d'une cellule est égale a une autre valeur.
Est ce possible ? merci, voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
For Each sh In Worksheets
    If Left(sh.Name, 5) = "Poule" Then
        For i = 1 To nbep
        For j = i + 1 To nbep
            sh.Range("a65000").End(xlUp).Offset(1, 0) = sh.Cells(i + 1, 6) 'ColonneA
            sh.Range("d65000").End(xlUp).Offset(1, 0) = sh.Cells(j + 1, 6) 'ColonneD
        Next
        Next

En gros dans mes colonnes, si la valeur est égales à une valeur X, je supprime la ligne
Merci

[jeanmidudu]

Bonjour,

Quelles sont tes cellules de référence (celles qui te servent à vérifier si les valeurs sont identiques)
Quelle est ta plage de cellule dans laquelle tu souhaites vérifier si la valeur est présente ou non?

Cdt,

[Kiouane]

Peux tu en dire plus? Le message d'erreur généré si c'est le cas? La valeur retournée sinon?

[kingjon]

Merci pour vos réponses, j'aimerais que si la valeur de la colonneA ou colonneD est egale à EquipeFantome
cela supprime la ligne de la colonne1 correspondante mais aussi la colonneD en même temps
sinon
ne rien faire

[Kiouane]

Si j'interprète bien ton code proposé au début, tu agis plutôt sur la première cellule vide après ta dernière cellule remplie de la colonne A et D et tu leur donne la valeur de la cellule de la colonne F en l'écrasant à chaque fois par la suivante, c'est loin de ce que tu demandes je crois. Peux tu faire une capture d'écran de ton tableau?

[jeanmidudu]

Encore trop imprécis :

-Où se trouve ta valeur "équipeFantome"
- Quel est l'indice de ta première ligne, de ta dernière ligne? Est-ce une plage de cellules variable?