Boucle simple avec condition pour supprimer des datas

Bonjour à tous,

Je commence avec les boucles, et j'ai un petit problème pour définir une plage de celulle; j'aimerais vider une plage de cellules suite à un test, à savoir une cellule=0 (dsl je suis vraiment débutant, et je n'ai pas trouvé de réponse sur le forum)

voici ce que j'ai essayé de réaliser

Dim cellule

cellule = ActiveCell.Value

Dim nombre As Integer

nombre = Range("XD" & Rows.Count).End(xlUp).Row

For i = 4 To nombre

If Range("XD" & i).Value = 0 Then

Range("XD" & i:"AAL" & i:).cells.clear => mon problème se situe ici, comment je peux définir la plage, je souhaite retirer les datas

pour le range XDi à AALi si ma condition est vérifiée

End If

Next i

Merci beaucoup pour votre aide!

Bonjour,

Un essai ...

Sub DeleteDatas()
Dim nombre As Integer
    nombre = Range("XD" & Rows.Count).End(xlUp).Row

    For i = 4 To nombre
        If Range("XD" & i).Value = 0 Then Range("XD" & i & ":AAL" & i).ClearContents
    Next i
End Sub

ric

Merci beaucoup Ric,

J'avais mal saisi comment définir mon range!

Super!

Bonne fin de journée!

Bonjour

Bonjour à tous

En corrigeant ta macro :
Sub essai()
    Dim cellule
    Dim nombre As Integer
    Dim i&

    'cellule = ActiveCell.Value        'inutile
    nombre = Range("XD" & Rows.Count).End(xlUp).Row

    For i = 4 To nombre
        If Range("XD" & i).Value = 0 Then
            Range("XD" & i & ":AAL" & i).Cells.Clear    '=> mon problème se situe ici, comment je peux définir la plage, je souhaite retirer les datas                                          'pour le range XDi à AALi si ma condition est vérifiée
        End If
    Next i
End Sub

Bye !

Ok super, merci beaucoup