Effecer contenue d'autres cellules dans EXCEL

Fermé
glad - 29 juin 2010 à 15:09
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 1 juil. 2010 à 16:23
Bonjour,


Dans Excel, je voudrais effacer le contenu de plusieurs cellules après modif d'une "cellule mère".

EX : Je modifie la cellule C89 (changement de date) et je voudrai que le contenue des cellules E93 à P174 se mette à blanc.

Est-ce possible avec une macro et si oui comment ?

Merci pour vos réponses
A voir également:

5 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
29 juin 2010 à 15:24
Bonjour,
Une piste ?
A coller dans le code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then AncValeur = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    If Target.Column = 3 And Target <> AncValeur Then
        For i = 93 To 174: Cells(Target.Row, i) = "": Next i
    End If
End Sub

A+
0
ça marche pas.

Quand j'active les Macros, il ne se passe rien...
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
30 juin 2010 à 17:53
Chez toi la politesse n'est pas de mise ?..
Pour une fois je vais passer outre,.. où tu à mis le code ci-dessus ?
0
Bonjour,

Nous n'avons pas la même notion de la politesse, il y a une discussion ou je dis juste que ça ne marche pas....


Bref, j'ai mis ça dans une macro que j'ai créé et j'ai copié/collé le code qui m'a été fourni ci-dessus.

Merci pour vos réponses, cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
1 juil. 2010 à 16:23
Oui, c'est pour cela que ça ne marche pas,
Quand tu est dans Excel (le classeur) tu clic droit sur l'onglet de la feuille que tu veux tester et tu sélectionne >> Visualiser le code, c'est sur cette feuille de code que tu dois copier tel quel le code ci-dessus.
Avec un ajout,
Tout en haut de la fenêtre de code tu met..
Dim AncValeur as Variant 

Sinon, toutes les cellules seront effacées à chaque fois.
A+
0