Feuille Récap et récap supplémentaire

Le 21/12/2012 à 20:34

Bonjour,

j'ai ajouter le code ci-dessous a la macro initialiser pour ré-initialiser les cellules mentionnée dans le code, mais je n'arrive pas comment appliquer ce code pour toutes les feuilles PV avec un seul clique au bouton initialiser toutes les feuilles!!!

Sub Effacer()
If MsgBox("Etes-vous certain de vouloir supprimer le contenu des pages?", vbYesNoCancel + vbInformation, "Demande de confirmation") = vbYes Then
Range("O14:O24").ClearContents
Range("O14:O24") = "0"
Range("S14:S24").ClearContents
Range("S14:S24") = "0"
Range("O32:O42").ClearContents
Range("O32:O42") = "0"
Range("S32:S42").ClearContents
Range("S32:S42") = "0"
Range("O49:O59").ClearContents
Range("O49:O59") = "0"
Range("S49:S59").ClearContents
Range("S49:S59") = "0"
Range("O67:O77").ClearContents
Range("O67:O77") = "0"
Range("S67:S77").ClearContents
Range("S67:S77") = "0"
Range("O84:O94").ClearContents
Range("O84:O94") = "0"
Range("S84:S94").ClearContents
Range("S84:S94") = "0"
Range("O102:O112").ClearContents
Range("O102:O112") = "0"
Range("S102:S112").ClearContents
Range("S102:S112") = "0"
Range("P26").ClearContents
Range("P26") = "0"
Range("T26").ClearContents
Range("T26") = "0"
Range("P44").ClearContents
Range("P44") = "0"
Range("T44").ClearContents
Range("T44") = "0"
Range("P61").ClearContents
Range("P61") = "0"
Range("T61").ClearContents
Range("T61") = "0"
Range("P79").ClearContents
Range("P79") = "0"
Range("T79").ClearContents
Range("T79") = "0"
Range("P96").ClearContents
Range("P96") = "0"
Range("T96").ClearContents
Range("T96") = "0"
Range("P114").ClearContents
Range("P114") = "0"
Range("T114").ClearContents
Range("T114") = "0"
    MsgBox "Le contenu a été effacé !", vbApplicationModal, "Merci !!!!"
  End If
End Sub

Merci.

A+

Galaxy201000

Le 21/12/2012 à 21:11

Bonsoir

A vérifier

45galaxy201000-recap-v011.xlsm (195.66 Ko)

Le 21/12/2012 à 22:33

Bonjour,

Le fichier fonctionne très bien, mais je t'avais envoyer le mauvais code, voici le bon code:

    Sub Effacer()
    If MsgBox("Etes-vous certain de vouloir supprimer le contenu des pages?", vbYesNoCancel + vbInformation, "Demande de confirmation") = vbYes Then
    Range("O14:O24").ClearContents
    Range("O14:O24") = "0"
    Range("S14:S24").ClearContents
    Range("S14:S24") = "0"
    Range("O31:O41").ClearContents
    Range("O31:O41") = "0"
    Range("S31:S41").ClearContents
    Range("S31:S41") = "0"
    Range("O48:O58").ClearContents
    Range("O48:O58") = "0"
    Range("S48:S58").ClearContents
    Range("S48:S58") = "0"
    Range("O65:O75").ClearContents
    Range("O65:O75") = "0"
    Range("S65:S75").ClearContents
    Range("S65:S75") = "0"
    Range("O82:O92").ClearContents
    Range("O82:O92") = "0"
    Range("S82:S92").ClearContents
    Range("S82:S92") = "0"
    Range("O99:O109").ClearContents
    Range("O99:O109") = "0"
    Range("S99:S109").ClearContents
    Range("S99:S109") = "0"
    Range("P26").ClearContents
    Range("P26") = "0"
    Range("T26").ClearContents
    Range("T26") = "0"
    Range("P43").ClearContents
    Range("P43") = "0"
    Range("T43").ClearContents
    Range("T43") = "0"
    Range("P60").ClearContents
    Range("P60") = "0"
    Range("T60").ClearContents
    Range("T60") = "0"
    Range("P77").ClearContents
    Range("P77") = "0"
    Range("T77").ClearContents
    Range("T77") = "0"
    Range("P94").ClearContents
    Range("P94") = "0"
    Range("T94").ClearContents
    Range("T94") = "0"
    Range("P111").ClearContents
    Range("P111") = "0"
    Range("T111").ClearContents
    Range("T111") = "0"
        MsgBox "Le contenu a été effacé !", vbApplicationModal, "Merci !!!!"
      End If
    End Sub

Je suis désolé pour cette erreur.

Merci.

A+

Galaxy201000

Bonjour,

Le fichier fonctionne très bien, mais je t'avais envoyer le mauvais code, voici le bon code que je souhaite ajouter.

    Sub Effacer()
    If MsgBox("Etes-vous certain de vouloir supprimer le contenu des pages?", vbYesNoCancel + vbInformation, "Demande de confirmation") = vbYes Then
    Range("O14:O24").ClearContents
    Range("O14:O24") = "0"
    Range("S14:S24").ClearContents
    Range("S14:S24") = "0"
    Range("O31:O41").ClearContents
    Range("O31:O41") = "0"
    Range("S31:S41").ClearContents
    Range("S31:S41") = "0"
    Range("O48:O58").ClearContents
    Range("O48:O58") = "0"
    Range("S48:S58").ClearContents
    Range("S48:S58") = "0"
    Range("O65:O75").ClearContents
    Range("O65:O75") = "0"
    Range("S65:S75").ClearContents
    Range("S65:S75") = "0"
    Range("O82:O92").ClearContents
    Range("O82:O92") = "0"
    Range("S82:S92").ClearContents
    Range("S82:S92") = "0"
    Range("O99:O109").ClearContents
    Range("O99:O109") = "0"
    Range("S99:S109").ClearContents
    Range("S99:S109") = "0"
    Range("P26").ClearContents
    Range("P26") = "0"
    Range("T26").ClearContents
    Range("T26") = "0"
    Range("P43").ClearContents
    Range("P43") = "0"
    Range("T43").ClearContents
    Range("T43") = "0"
    Range("P60").ClearContents
    Range("P60") = "0"
    Range("T60").ClearContents
    Range("T60") = "0"
    Range("P77").ClearContents
    Range("P77") = "0"
    Range("T77").ClearContents
    Range("T77") = "0"
    Range("P94").ClearContents
    Range("P94") = "0"
    Range("T94").ClearContents
    Range("T94") = "0"
    Range("P111").ClearContents
    Range("P111") = "0"
    Range("T111").ClearContents
    Range("T111") = "0"
        MsgBox "Le contenu a été effacé !", vbApplicationModal, "Merci !!!!"
      End If
    End Sub

Je suis désolé pour cette erreur.

Merci.

A+

Galaxy201000

Le 21/12/2012 à 23:38

Bonjour,

vous pouvez m'aider, s'il vous plait.

Merci.

A+

Le 22/12/2012 à 00:26

Bonjour

A tester