vider contenu cellules

vgendron

XLDnaute Barbatruc

• 11 Juin 2014

• #2

Re : vider contenu cellules

Hello
avec ce bout de code à mettre dans un module vba

Code:

Sub efface()

Set zone = Sheets("Feuil1").Range("D5:D13")

For Each ele In zone
    If ele = "" Then Range("F" & ele.Row & ":G" & ele.Row).ClearContents
Next ele

End Sub

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Juin 2014

• #3

Re : vider contenu cellules

Avec le fichier en PJ et le bouton qui va bien

 

Pièces jointes

• videcellule.xlsm

  17.6 KB · Affichages: 24
• videcellule.xlsm

  17.6 KB · Affichages: 31
• videcellule.xlsm

  17.6 KB · Affichages: 32

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Juin 2014

• #4

Re : vider contenu cellules

Bonjour Jeffe, Vgendron

Une autre façon avec détection de la colonne 'a renseigner.

Cordialement ,

 

Pièces jointes

• videcellule.xlsm

  19.4 KB · Affichages: 49
• videcellule.xlsm

  19.4 KB · Affichages: 49
• videcellule.xlsm

  19.4 KB · Affichages: 53

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 11 Juin 2014

• #5

Re : vider contenu cellules

Hello, camarchepas, Vgendron, le forum.
camarchepas (si si, très bien, merci)
Vgendron, je n'arrive pas à voir comment est déclaré, ou défini dans ton code :ele
merci pour vos réponces
jf

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 11 Juin 2014

• #6

Re : vider contenu cellules

ele n'est pas déclaré.. j'utilise rarement (à tort) la déclaration de mes variables
par défaut, il s'agit d'un type variant

mais s'il fallait déclarer ce serait comme ceci:
dim ele as range

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 11 Juin 2014

• #7

Re : vider contenu cellules

merci de l'info, du coup, je vais la déclarer
bonne soirée à vous

 

Vote positif 0 Vote négatif