Suppresion de cellule en fonction d'une valeurRésolu

Question

Bonjour à tous,

Je cherche une macro me permettant de:

> Dans une plage selectionnée, supprimer toute les cellules qui sont égales à 1.

Quelqu'un peut-il m'aider?

Cordialement,

mortalino · Accepted Answer

Le delete fonctionne bien vba : Dim ACell As Range For Each ACell In Selection If ACell.Text = "1" Then ACell.Delete xlUp Next ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

jrivet · Answer

Salut,
Par supprimer la cellule , tu entends la vider simplement?

Une petite recherche sur le site te permettrais de trouver par toi meme.

Essaie un truc du style

Dim ACell As Range
For Each ACell In Selection   If ACell.Text "1" Then ACell.Text vbNullString
Next, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Salut

For i = ? To ?


If Range("A" & i).Value = 1 Then


Range("A" & i).Select
Selection.Delete


i = i - 1


End If


Next

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

SHUN2007 · Answer

Non par supprimer, j'entend supprimer, désintégrer, abroger...

SHUN2007 · Answer

Drikce,


 


J'ai oublié de préciser que j'étais le plus grand débutant en VB.


Or quand je copie colle ton code j'ai beeaucoup d'erreur! Faut-il faire des ajouts?


 


Merci.

drikce06 · Answer

Oui normal tu es en .Net, regarde l'unr de mes sources sur la manip d'excel en .Net.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Suppresion de cellule en fonction d'une valeur

6 réponses

Votre réponse

Discussions similaires