effacement cellule a droite et a gauche

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 !

GHISLAIN

XLDnaute Impliqué
bonjour a tous ,



voila j'utilise ce code qui me detecte les doublons et me l efface

If Range("c" & i) = Range("c" & i - 1) Then
MsgBox "Doublon Détecté et Détruit : " & Range("c" & i - 1).Value, vbCritical, "AVERTISSEMENT"
Dim cell As Range
Range("c" & i).ClearContents


je souhaiterais que ce code m efface egalement les 2 cellules qui sont avant donc la recherche du doublon se faisant sur c , les cellule A et B seront egalement effacées et je voudrai aussi que la cellule venant apres soit aussi effacer donc la D


j ai testé

Range(("c" & i) + 1).ClearContents

sans resultat ,
si une une ame charitable pouvait me depanner je la remercie par avance
tres amicalement

Ghislain
 
Re : effacement cellule a droite et a gauche

Bonjour
Il te faut utiliser l'instruction offset pour décaler ton range :
range("c" & i).offset(0,-1) renvoie la cellule située sur la même ligne (pas de décalage vers le bas) et une cellule à gauche donc ici la cellule "B" & i
offset(décalage vers le bas (vers le haut si neg); décalage vers la droite (vers la gauche si neg)

attention, fais une gestion d'erreur car si ta cellule est dans la colonne C et que tu décales de 3 vers la gauche, ça va pas marcher 🙂
 
- 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

Discussions similaires

Réponses
0
Affichages
1 K
Retour