P pascal cfp 49 XLDnaute Nouveau 15 Octobre 2012 #1 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
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é XLDnaute Barbatruc 15 Octobre 2012 #2 Re : Utiliser offset seulement dans 9 lignes d'un tableau Bonjour pascal cfp 49 , Sans exemple, dans le vide ... VB: Range("G12:I21").ClearContents []En apparté : Il est rarement utile de selectionner une cellule qui ne t'as rien fait, alors : VB: ActiveCell.Select C'est de l'acharnement [/] Cordialement Dernière édition: 15 Octobre 2012 Vote positif 0 Vote négatif
Re : Utiliser offset seulement dans 9 lignes d'un tableau Bonjour pascal cfp 49 , Sans exemple, dans le vide ... VB: Range("G12:I21").ClearContents []En apparté : Il est rarement utile de selectionner une cellule qui ne t'as rien fait, alors : VB: ActiveCell.Select C'est de l'acharnement [/] Cordialement
job75 XLDnaute Barbatruc 15 Octobre 2012 #3 Re : Utiliser offset seulement dans 9 lignes d'un tableau Bonjour, Code: 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+ Vote positif 0 Vote négatif
Re : Utiliser offset seulement dans 9 lignes d'un tableau Bonjour, Code: 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 XLDnaute Barbatruc 15 Octobre 2012 #4 Re : Utiliser offset seulement dans 9 lignes d'un tableau Re, Plus simple avec Intersect : Code: 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+ Vote positif 0 Vote négatif
Re : Utiliser offset seulement dans 9 lignes d'un tableau Re, Plus simple avec Intersect : Code: 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+