vider contenu cellules

[jeffe]

Bonjour le forum,
sur un tableau d'une dizaine de lignes et 15 colonnes, je voudrais effacer des données dans des cellules si la première n'est pas renseignée, ce sera peut etre plus clair avec le fichier joint.
merci

 

[vgendron]

Re : vider contenu cellules

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

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

 

[vgendron]

Re : vider contenu cellules

Avec le fichier en PJ et le bouton qui va bien

 

[camarchepas]

Re : vider contenu cellules

Bonjour Jeffe, Vgendron

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

Cordialement ,

 

[jeffe]

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

 

[vgendron]

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

 

[jeffe]

Re : vider contenu cellules

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