Utiliser offset seulement dans 9 lignes d'un tableau

[pascal cfp 49]

Bonjour à tous

J'utilise ce code pour effacer des informations dans un tableau
[D65000].End(xlUp).Offset(0, 0).Select

ActiveCell.ClearContents

ActiveCell.Select
ActiveCell.Offset(0, 3) = ""

ActiveCell.Select
ActiveCell.Offset(0, 4) = ""

ActiveCell.Select
ActiveCell.Offset(0, 5) = ""


Je voudrais limiter la suppression des données de la ligne 21 à la ligne 12
pouvez vous me dépanner

merci d'avance

Pascal cfp 49

 

[Efgé]

Re : Utiliser offset seulement dans 9 lignes d'un tableau

Bonjour pascal cfp 49 , Sans exemple, dans le vide ...

Range("G12:I21").ClearContents

[]En apparté : Il est rarement utile de selectionner une cellule qui ne t'as rien fait, alors :

ActiveCell.Select

C'est de l'acharnement [/] Cordialement

 

[job75]

Re : Utiliser offset seulement dans 9 lignes d'un tableau

Bonjour,

Dim lig As Long
lig = [D65000].End(xlUp).Row
If lig >= 12 And lig <= 21 Then _
  Union(Cells(lig, "D"), Cells(lig, "G").Resize(, 3)).ClearContents

En VBA il est en général inutile de sélectionner quoi que ce soit.

Edit : salut Fred pas rafraîchi...

A+

 

[job75]

Re : Utiliser offset seulement dans 9 lignes d'un tableau

Re,

Plus simple avec Intersect :

Dim lig As Long
lig = [D65000].End(xlUp).Row
If lig >= 12 And lig <= 21 Then _
  Intersect(Rows(lig), [D:D,G:I]).ClearContents

A+