Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour à tous
j'ai un tableau de 441 lignes et 16 colonnes
j'aurais voulu savoir s'il existe une macro pour éliminer les lignes qui ne contiennent aucune valeur négative.
Merci de votre aide...
Re : Supprimer lignes si valeur aucune valeur negative
Bonjour Piraga,
Sub Enleve()
Dim garde As Boolean
Application.ScreenUpdating = False
For lg = 442 To 2 Step -1
For k = 1 To 16
If Cells(lg, k) < 0 Then garde = True: Exit For
Next
If Not garde Then Rows(lg).Delete garde = False
garde = False
Next
Application.ScreenUpdating = True
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.