Sipprimer une ligne avec une condition
Papouni122
Messages postés
19
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Sipprimer une ligne avec une condition
- Partager photos en ligne - Guide
- Excel cellule couleur si condition texte - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
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.
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.
