Discussion :

[fherolvera]

Bonjour
Je travail sur une plage de cellule.
Je recherche une formule VBA qui permettrait d’effacer les cellules adjacentes à droite si la valeur de la cellule de référence est égale à O.
Sur mon exemple (classeur ci-joint) : Plage de cellule : A1 :C20
Objectif : effacer les cellules B11 :B20 puisque les cellules de droites A11 :A20 sont égales à 0
Merci pour votre retour

[deedolith]

Salut,

D'après ta description, je dirais la méthode Offset de l'objet Range.
Cette dernière renvoie une référence vers une plage relative à une plage donnée.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Ws As Excel.Worksheet
Set Ws = ThisWorkbook.Worksheets(1)
 
Dim Rng As Excel.Range
Set Rng = Ws.Range("A11")    '// Reference sur la cellule A11
Set Rng = Rng.Offset(ColumnOffset:=1)    '// Reference sur la cellule décalée d'une colonne vers la droite de la cellule A11, soit B11