supprimer valeur des cellules contigues

job75

XLDnaute Barbatruc

• 10 Août 2014

• #2

Re : supprimer valeur des cellules contigues

Bonjour,

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2014

• #3

Re : supprimer valeur des cellules contigues

Re,

Autre code :

Code:

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

A+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Août 2014

• #4

Re : supprimer valeur des cellules contigues

Bonjour, Evelynetfrancois, le Forum,

Peut-être ainsi :

Code:

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

 

Dernière édition: 10 Août 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2014

• #5

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+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 10 Août 2014

• #6

Re : supprimer valeur des cellules contigues

Re-bonjour,

job75 à dit:

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

Cliquez pour agrandir...

Grand MERCI, job75

A bientôt

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 11 Août 2014

• #7

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

 

Vote positif 0 Vote négatif