effacement cellule a droite et a gauche

[GHISLAIN]

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

 

[Misange]

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

 

[GHISLAIN]

Re : effacement cellule a droite et a gauche

Bonjour Misange,

merci de ton aide et egalement des explications qui me seront utiles a l avenir

probleme resolu

c est genial

bonne journee

amicalament

ghislain

 

[Misange]

Re : effacement cellule a droite et a gauche

Avec plaisir