Effacer 2 cellules sur 3 et repeter l'opération

[jul85]

Bonjour
j'aimerai créer une macro qui efface les données qu'il y a dans 2 cellules sur 3
par rapport à un plage de cellule variable qui est selectionnée

par exemple sur la plage A1: Z1

je voudrai que la macro efface A1, B1, D1, E1, G1, H1...

j'ai trouvé ca avecl'eregistreur de macro mais ca ne résoud pas mon problème:

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("H112:I112").Select
    selection.ClearContents
    Range("K112:L112").Select
    selection.ClearContents
    Range("N112:O112").Select
    selection.ClearContents
    Range("Q112:R112").Select
    selection.ClearContents
    Range("T112:U112").Select
    selection.ClearContents
    Range("W112:X112").Select
    selection.ClearContents
    Range("Z112:AA112").Select
    selection.ClearContents
End Sub

merci d'avance

 

[Pierrot93]

Re : Effacer 2 cellules sur 3 et repeter l'opération

Bonjour Jul

essaye le code ci dessous, efface 2 cellules sur 3 sur la ligne 1, pour les colonnes A à Z :

Sub test()
Dim i As Byte
For i = 1 To 26
    If i Mod 3 <> 0 Then Cells(1, i).ClearContents
Next i
End Sub

bon après midi.
@+

 

[jul85]

Re : Effacer 2 cellules sur 3 et repeter l'opération

Salut pierrot93 j'ai mis en place ta macro mais j'ai un petit probleme c'est qu'elle marche bien a condition qu'il y ai des données dans toutes les cellules de la ligne.
Dans mon cas il y a sur la ligne des cellules qui sont vides.
Donc il faudrait que la macro efface toutes les cellules sauf celles de la 3eme, 6eme,9eme.... colonne sur la plage qui est sélectionné

merci d'avance