Remises à zéro

Pierrot93

XLDnaute Barbatruc

• 30 Août 2011

• #2

Re : Remises à zéro

Bonjour,

essaye ceci, une confirmation de l'exécution est necéssaire ...

Code:

If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then _
    Range("B9:AG43,B53:AG76").Clear

bon après midi
@+

 

Vote positif 0 Vote négatif

jjp

XLDnaute Nouveau

• 30 Août 2011

• #3

Re : Remises à zéro

merci
elle est très efficace et même un peux trop.
je n'avait pas vu cela comme ça.

Tu peux me le refaire mais en laissant le quadrillage ??
(simplement supprimer : lettres, chiffres et couleur)

merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Août 2011

• #4

Re : Remises à zéro

Re,

Tu peux me le refaire mais en laissant le quadrillage ??

Cliquez pour agrandir...

tu veux dire les bordures ??? elles font partie du format.... pour le contenu, remplace "clear" par "clearcontents"...

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Août 2011

• #5

Re : Remises à zéro

Bonsoir, salut Pierrot🙂,
peut-être en remplaçant

Code:

Range("B9:AG43,B53:AG76").Clear

par

Code:

Range("B9:AG43,B53:AG76").ClearContents

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Août 2011

• #6

Re : Remises à zéro

Re, bonsoir David🙂,

pour le contenu, couleur de remplissage et coleur de police :

Code:

With Range("B9:AG43,B53:AG76")
    If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
        .ClearContents
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
    End If
End With

 

Vote positif 0 Vote négatif

jjp

XLDnaute Nouveau

• 30 Août 2011

• #7

Re : Remises à zéro

Pierrot93 à dit:

Re, bonsoir David🙂,

pour le contenu, couleur de remplissage et coleur de police :

Code:

With Range("B9:AG43,B53:AG76")
    If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
        .ClearContents
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
    End If
End With

Cliquez pour agrandir...

Sur celle ci ça me met erreur End With ??

 

Vote positif 0 Vote négatif

jjp

XLDnaute Nouveau

• 30 Août 2011

• #8

Re : Remises à zéro

dsl c'est moi qui avait fait l'erreur.
voici ce qui foncctionne:

Sub RAZ()
'
' RAZ Macro
' remise à zéro des cellules de pointage
'
With Range("B9:AG43,B53:AG76")
If MsgBox("Voulez vous effacer les lignes ??", vbYesNo) = vbYes Then
.ClearContents
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
End If
End With
End Sub

 

Vote positif 0 Vote négatif