Suppression avec cell

[GHISLAIN]

bonjour a tous
je ne parviens pas a regler un souci sur la l'effacement de cellules

For Each Cell In Plage
If Cell.Value = Nom Then
Msg = MsgBox("Voulez-Vous Supprimer : " & Nom, vbYesNo, "AVERTISSEMENT")
If Msg = 6 Then
Cell.EntireRow.clear
Ini
Combo
Else: Exit Sub
Combo
End If
Else
Combo
End If
Next Cell


la ligne Cell.EntireRow.clear efface la ligne complete alors que je cherche a ce quelle m efface uniquement la cellule faisant reference a "nom" ( valeur d'une combobox) et la cellule a sa droite

si quelqu un avait une idee

merci a tous de votre aide

amicalement

ghislain

 

[roro69]

Re : Suppression avec cell

Bonsoir
peut etre en remplaçant ceci

If Msg = 6 Then
Cell.EntireRow.clear

Par ceci

If Msg = 6 Then
Cell.Offset.clear and Cell.Offset(0,1).clear

A++

 

[GHISLAIN]

Re : Suppression avec cell

bonjour roro69,
merci d etre passé sur mon fil et de m avoir apporté une solution

celle que tu me propose ne fonctionne pas mais en partant de celle ci j 'ai fait
Cell.Offset.clear
Cell.Offset(0,1).clear
ça m efface bien les cellules une apres l autre le "and" ne fonctionne pas

merci de ton aide

amicalement

ghislain




Cell.Offset.Clear
Cell.Offset(0, 1).Clear