un petit coup de pouce sur un code "Effacement de plusieurs plages de données

mth

XLDnaute Barbatruc

• 6 Décembre 2011

• #2

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

Bonjour,

Un petit essai avec ce code:

Code:

Sub efface()
Dim Lig As Long
With Sheets("Feuil1")
    Lig = WorksheetFunction.Max(3, .Cells(Rows.Count, 3).End(xlUp).Row)
    Union(.Range("C3:C" & Lig), Range("F3:F" & Lig), .Range("M3:M" & Lig)).Clear
End With
End Sub

Bonne journée,

mth

 

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 6 Décembre 2011

• #3

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

merci.
juste pour une petite perfection que je souhaite apporter : comment je peux garder la mise en forme dans des cellules effacées?
merci pour l'aide

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 6 Décembre 2011

• #4

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

re 🙂

Essaie en remplaçant .Clear par .Clearcontents

Bien à toi,

mth

Edit: 🙂 🙂 Bing peut-être mais super contente de te croiser 🙂 🙂
Bise et @ +
m

 

Dernière édition: 6 Décembre 2011

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Décembre 2011

• #5

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

Bonjour sniper, Bonjour mth 🙂,

Change le "Clear" du code de mth en "ClearContents"

Edit : Bing, désolé 😉

 

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 6 Décembre 2011

• #6

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

Merci! les stars ! ça avance .... cool

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 6 Décembre 2011

• #7

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

Bonjour Jean-Marcel 🙂

Sourire ... tu vas peut-être considérer que j'ai sorti une version "Monsieur Bricolage" ... 😀😀

En fait j'ignore ce qu'il peut y avoir dans le fichier de notre ami, et au cas où si la colonne est vide sauf un truc important à conserver ligne 1 par exemple, la macro effacera gentiment cette cellule. Le petit workaround avec Max me permettait de ne pas effacer malencontreusement ce qui est susceptible d'exister en haut de la colonne.

Voili voilou 😀

Bise et @ +

m

 

Vote positif 0 Vote négatif

S

sniper2002

XLDnaute Occasionnel

• 7 Décembre 2011

• #8

Re : un petit coup de pouce sur un code "Effacement de plusieurs plages de données

Bonjour

Dans une feuil1 je souhaite instaurer une règle de saisie :
Pour chaque saisie dans la colonne F (à partir F15) il m'efface le contenu de la plage G15😀Z15, avec un vérouillage de cette plage

NB : Avec le menu validation je ne trouve pas l'interactivité lorsqu'un utilisateur revient pour saisir une donnée dans la cellule F15, la plage de donnée G15😀Z15 garde les données initililes, même si j'ai bien personnalisé la validation de données !!? (sauf erreur de ma part).

L'objectif est d'avoir une interactivité dans la feuil1 si jamais l'utilisateur revient sur saisie.

Merci pour votre aide.

 

Vote positif 0 Vote négatif