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.
J'ai éssayé
If Cells(1, 1) = '0' Then Rows(1).Delete
dans une macro toute seul elle ne fonctionne pas, mais jai oublié de preciser que dans mes cellules de la colonne A j'ai des formules qui me donnent comme resultats soit des valeurs commencent par 5 , 6 ou 7 ou ou sinon la valeur 0.Je cherche à suprimer les lignes qui ont la valeur 0
Sub TuerZero()
Range('A1').Select
Dim Last As Integer, I As Integer
Last = Range('A65000').End(xlUp).Row
For I = Last To 2 Step -1
If Cells(I, 1) = 0 Then
Cells(I, 1).EntireRow.Delete
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
NbLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = NbLigne To 1 Step -1
If Range('A' & i).Value = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
L'effacement de ligne sera effectif dès que la formule produira un résultat = à 0
@+GD
J'avoue ne pas tout bien comprendre.
La macro de Patrick tourne correctement ... la mienne aussi ....
Je supprimerai le 'Range('A1').Select' de Patrick
Par contre j'ajouterai dim i as integer ) à ma solution. (Ce n'est pas bien d'oublier de déclarer les variables ! )
celle de pat1545 avec une intervention de l'utilisateur avec un click sur un bouton relié a son code. No problemo.
Je me demande, si ce n'est pas une particularité de ton fichier qui fait en sorte que les intervenants de ce fil partent en boucle. Pourrais-tu joindre ton fichier s.v.p.
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.