Sipprimer une ligne avec une condition

Papouni122 -  
Bonjour,
J ESSAI DE SUPPRIMER UNE LIGNE DE MON TABLEAU AVEC LA CONDITION QUE LA VALEUR DE MA CELLULE SOIT EGALE A 1 MAIS JE NE SAIS PAS POURQUOI IL REPOND PAS COMME IL FAUT
J AI BESOIN DE VOUS DE ME DIRE C EST QUOI QUI N EST CORRECT DANS MON CODE
MON CODE EST "
Sub suppr()
Dim i As Integer
For i = 1 To 256
If Cells(i, 36) = "1" Then 'COLONNE AK
Rows(i).Delete
i = i - 1
End If
Next
End Sub

MERCI DE VOTRE AIDE

2 réponses

  1.  Utilisateur anonyme
    MERCI D'EDITER ET METTRE EN MINUSCULE C'EST PAS LISIBLE La

    Mageia Linux <3
    Je suis un mec ;)
    0
    1. Mike-31
      Salut,

      je confirme et la mise en page est prévue dans la charte du forum "éviter les majuscules, le gras et certains termes comme urgent" ceci dit ton code est bon à la seule différence que les valeurs numériques ne doivent pas être entre guillemets sauf dans le cas de formatage des valeurs en texte, ensuite la colonne AK est la 37éme pas la 36éme

      Sub suppr()
      Dim i As Integer
      For i = 1 To 256
      If Cells(i, 37) = 1 Then 'COLONNE AK
      Rows(i).Delete
      i = i - 1
      End If
      Next
      End Sub

      A+
      Mike-31

      Une période d'échec est un moment rêvé pour semer les graines du savoir.
      0