Discussion :

[Klode784]

Bonjour à tous du forum,

J'ai un classeur qui contient 10 feuilles de calcul. Dans la première feuille, j'ai un bouton qui me permet d'effacer les données saisies dans des cellules spécifiques. La plage de cellules s'appelle MAPLAGE. J'ai ajouté une feuille qui contient des données dans 7 cellules qui doivent elles aussi être effacées en même temps que la première feuille. J'ai tenté d'ajouter ces cellules à MAPLAGE. Lorsque je clique sur le bouton, les données dans les cellules de la dernière feuille ne s'effacent pas. J'ai bien ajouté le nom de la feuille et l'emplacement des cellules à MAPLAGE. Ai-je manqué quelque chose ou si je dois procéder différemment?

Merci de votre aide,

Claude

[Invité]

Bonjour

Si tu mettais le code que tu as utilisé, cela aiderait les membres du forum.

Philippe

[Klode784]

Bonjour et merci pour la réponse. J'ai revérifié le tout et lorsque j'essaie d'ajouter des cellules supplémentaires à MAPLAGE, elles ne s'ajoutent pas. De plus, dans le code ci-dessous je crois que je devrais ajouter la feuille supplémentaire afin que la commande prenne en compte la deuxième feuille pour en effacer les cellules. Mais premièrement, comment faire pour ajouter les cellules à MAPLAGE? J'ai tenté de différentes façons et je ne semble pas avoir de succès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub RAZ()
Dim c As Range
Application.EnableEvents = True
 
Application.ScreenUpdating = False
With Sheets("Contrat")
    For Each c In .Range("MAPLAGE")
        If Not c.HasFormula Then c.MergeArea.ClearContents
    Next c
    .Range("D30").Value = 0
    .Range("E8").Select
End With
End Sub

Merci de me corriger si je suis dans l'erreur...

Claude