supprimer valeur des cellules contigues

[Evelynetfrancois]

bonsoir tout le monde
j essaye un truc qui ne doit pas être complexe mais je trouve pas !!!

Dim cell As Range
For Each cell In Range("ad8", "ad40").End(xlUp) 'ma plage de cellules
If cell.Value = "" Then ' donc si la cell est vide
cell.Offset(0, -1) = ""
cell.Offset(0, -2) = ""
cell.Offset(0, 1) = ""
End If
Next

pouvez vous me montrer
un grand merci d avance !!!!!!!!!
EetF

 

[job75]

Re : supprimer valeur des cellules contigues

Bonjour,

For Each cell In [AD8:AD40] 'ma plage de cellules

A+

 

[job75]

Re : supprimer valeur des cellules contigues

Re,

Autre code :

On Error Resume Next 'si aucune cellule vide
With [AD8:AD40].SpecialCells(xlCellTypeBlanks)
Intersect(.EntireRow, [AB:AC,AE:AE]) = ""
End With

A+

 

[DoubleZero]

Re : supprimer valeur des cellules contigues

Bonjour, Evelynetfrancois, le Forum,

Peut-être ainsi :

Option Explicit
Sub Supprimer_si()
Dim cell As Range
For Each cell In Range("ad8:ad40")
If cell.Value = "" Then
cell.Offset(, -2).Resize(, 4) = ""
End If
Next
End Sub

A bientôt 🙂

P. S. 1 : Bonjour, job75 😀

P. S. 2 : Code x fois plus rapide... Merci 😱

 

[job75]

Re : supprimer valeur des cellules contigues

Bonjour DoubleZero 🙂

Une petite remarque sur ton code.

Si le code est dans une macro Worksheet_Change traitant AD8:AD40,
mieux vaut ne pas utiliser cell.Offset(, -2).Resize(, 4) = ""

Ou alors ajouter les Application.EnabledEvents.

A+

 

[DoubleZero]

Re : supprimer valeur des cellules contigues

Re-bonjour,

... Une petite remarque sur ton code...

Grand MERCI, job75 😀

A bientôt 🙂🙂

 

[Evelynetfrancois]

Re : supprimer valeur des cellules contigues

MERCI pour tout job75 et doublezero
j ai modifié comme sur vos exemples
ca fonctionne tres bien
ps j avais repondu hier mais mais !!! ou est mon post ?
j ai du faire une boulette
bon apres midi
E et F