Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utiliser offset seulement dans 9 lignes d'un tableau

  • Initiateur de la discussion Initiateur de la discussion pascal cfp 49
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pascal cfp 49

Guest
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
 
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:
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+
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
L
Réponses
9
Affichages
1 K
C
Réponses
4
Affichages
2 K
C
K
Réponses
12
Affichages
2 K
Réponses
3
Affichages
1 K
Réponses
39
Affichages
6 K
J
Réponses
9
Affichages
3 K
Justine56
J
D
  • Question Question
Réponses
0
Affichages
997
Didi59
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…