Simplification petit code

bonjour,

sur le petit code suivant qui efface les colonnes d'un tableau selon la valeur en as7,

comment simplifier, en sachant que le tableau va jusqu'en (cx8:cx55) pour ne pas devoir écrire "si" pour chaque colonne ?

MERCI

If Range("as7") = 1 Then

Range("au8:au55").Select

Selection.ClearContents

End If

If Range("as7") = 2 Then

Range("av8:av55").Select

Selection.ClearContents

End If

If Range("as7") = 3 Then

Range("aw8:aw55").Select

Selection.ClearContents

End If

Bonjour,

Au bout de 246 posts tu n'as pas remarqué qu'on pouvait utiliser la balise Code pour que la lecture soit plus agréable ?

Range("au8:au55").offset(,Range("as7")-1).ClearContents

eric

Bonjour dann

Proposition retirée

ça marche, merci.

ok pour les balises, je viens de voir comment ça fonctionne

à+