effecer contenue d'autres cellules dans EXCEL

Question

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

lermite222 · Answer

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+

glad · Answer

ça marche pas.

Quand j'active les Macros, il ne se passe rien...

lermite222 · Answer

Chez toi la politesse n'est pas de mise ?..
Pour une fois je vais passer outre,.. où tu à mis le code ci-dessus ?

glad · Answer

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

lermite222 · Answer

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+

Effecer contenue d'autres cellules dans EXCEL

5 réponses

Votre réponse

Discussions similaires

Newsletters