grotsblues
XLDnaute Occasionnel
Bonsoir
Je cherche un code vba afin d'effacer le contenu de plusieurs cellules avec une condition et une boucle. J'ai un début de code vba que je n'arrive pas à finaliser.
exemple: si en E7 le chiffre commence par 6 OU 7 alors efface la zone A12 à F48, si en E62 le chiffre commence par 6 OU 7 alors efface la zone A67 à F103 et ainsi de suite (si E117...)
Mon code vba
Sub DELETECOMPTE6ET7()
Dim Zone As String
Dim i As Long
For i = 7 To 34868 Step 55
If (Cells(i, 5)) >= 6 Then
Zone = "A" & i + 5 & ":F" & i + 4
'je pense qu'il manque ici un code
Else
End If
Next i
End Sub
Merci pour vos réponses
Je cherche un code vba afin d'effacer le contenu de plusieurs cellules avec une condition et une boucle. J'ai un début de code vba que je n'arrive pas à finaliser.
exemple: si en E7 le chiffre commence par 6 OU 7 alors efface la zone A12 à F48, si en E62 le chiffre commence par 6 OU 7 alors efface la zone A67 à F103 et ainsi de suite (si E117...)
Mon code vba
Sub DELETECOMPTE6ET7()
Dim Zone As String
Dim i As Long
For i = 7 To 34868 Step 55
If (Cells(i, 5)) >= 6 Then
Zone = "A" & i + 5 & ":F" & i + 4
'je pense qu'il manque ici un code
Else
End If
Next i
End Sub
Merci pour vos réponses