supression d'une ligne VBA

coolmen1080 · 17 Juin 2008

Bonjour chers aideurs de macro,

voici mon problème:

j'ai un tableau avec différentes colonnes qui contiennent des "X" a certaines d'entres-elles. j'aimerais avoir une macro qui me supprime la ligne correspondante chaque fois que la colonne M, O et P ne contient pas de "X". Donc, chaque fois que mes trois colonnes sont vides, je veux que la macro supprime ma ligne.

merci de votre temps

phil

Staple1600 · 17 Juin 2008

Re : supression d'une ligne VBA

Bonsoir

A tester

Code:

Sub xtest()
Dim i As Long
Dim r As Range
Dim x As Long
Application.ScreenUpdating = False
For i = [M65536].End(xlUp).Row To 1 Step -1
Set r = Range("M" & i)
x = Application.WorksheetFunction.CountBlank(r.Resize(1, 4))
If x = 4 Then
Range("M" & i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

coolmen1080 · 17 Juin 2008

Re : supression d'une ligne VBA

ouais numéro 1 exactement ce que je voulais. merci de ton aide

phil

supression d'une ligne VBA

coolmen1080

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

coolmen1080

XLDnaute Nouveau

Discussions similaires