Discussion :

[nixon]

desire de mon macro:
si cellule g1 >1 alors effacer ligne 1
si cellule g2>1 alors effacer ligne 2
etc sur 50 lignes.

ma premiere ebauche:

Code :

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

1
2
3
4
5
6
7
8
Private Sub avis2_Click()
Dim macellule As Range
    Range("g2:g52").Select
    For Each macellule In Selection
        If macellule > 1 Then
            Rows("2").Delete Shift:=xlUp
        End If
    Next macellule

la je control bien mes cellules "g" mais que la ligne 2
comment puis je faire pour déclarer la deuxieme variables lignes.
MERCI D'AVANCE

[ouskel'n'or]

Bonjour nixon, bienvenue sur le forum.
Pense à utiliser les balises code pour encadrer celui-ci -> Sélection du code + 1 clic sur #

[ouskel'n'or]

Oui, et c'est normal

Code :

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

1
2
3
        If macellule > 1 Then
            macellule.entirerow.Delete Shift:=xlUp
        End If

Teste ça et dis-nous si ça va mieux

[nixon]

ok merci cellà marche nickel