effacer contenu cellules quand changement de la valeur d'une autre cellule

[pascal21]

bonjour
quel est le code qui permet d'effacer le contenu de certaines cellules (valeur et commentaires si présent) (ex. D5 E5 F5) en cas de changement de la valeur de A5
et ce, sur env. 100 lignes
merci
je pense que le code est à base de "if intercept" etc.... mais je ne maitrise pas encore très bien

 

[Dull]

Re : effacer contenu cellules quand changement de la valeur d'une autre cellule

Salut Pascal21, le Forum

je pense que le code est à base de "if intercept"

Tu voulais certainement parler de Intersect 😉

Peut- être comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A5], Target) Is Nothing Then
    With [D5:F5]
        .ClearContents
        .ClearComments
    End With
End If
End Sub

EDITION:

et ce, sur env. 100 lignes

Pasvu

essaye celui ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
For i = 5 To 100 [COLOR=SeaGreen]'A adapter[/COLOR]
    If Not Intersect(Range("A" & i), Target) Is Nothing Then
    With Range("D" & i & ":F" & i)
        .ClearContents
        .ClearComments
    End With
    End If
Next i
End Sub

 

[kjin]

Re : effacer contenu cellules quand changement de la valeur d'une autre cellule

Bonjour,

.....mais je ne maitrise pas encore très bien

😕 >1800 au compteur !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A100")) Is Nothing Then
    Range("D" & Target.Row & ":F" & Target.Row).ClearContents
End If
End Sub

Edit : Bonjour Dull 🙂 , chgt de valeur et non de selection si Jean Mabuse

A+
kjin

 

[Dull]

Re : effacer contenu cellules quand changement de la valeur d'une autre cellule

Re le Fil
Salut kjin🙂

😕 >1800 au compteur !

Etjenetelefaitpasdirekjin😀

Edition: Bien vu kjin et Merci 😉
Lire

Private Sub Worksheet_Change(ByVal Target As Range)

a la place de

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Bonne Journée

 

[Gorfael]

Re : effacer contenu cellules quand changement de la valeur d'une autre cellule

Salut pascal21 et le forum
Ce que je comprends : si on modifie la cellule A, on doit effacer D à F

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Intersect(Target, Range([A5], Range("A" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
'Si la modification ne concerne pas la colonne A, sortir
For Each Cel In Intersect(Target, Range([A5], Range("A" & Rows.Count).End(xlUp)))
    Range(Cel.Offset(0, 3), Cel.Offset(0, 5)).Clear
Next Cel
End Sub

A+

 

[pascal21]

merci pour vos réponses
1800 au compteur d'accord mais je ne pratique pas le vba tous les jours (ce n'est pas mon métier ni même ma formation de base
excel ne reste qu'un logiciel attrayant par ces possibilités innombrables
la micro ou la bureautique, je l'ai apprise (du moins ce que j'en sais) uniquement sur les forums ,d'où peut-être ce chiffre de 1800 questions où réponses à mes posts mais aussi , en tentant d'aider quand je peux
moi mon truc c'est la mécanique tp,poids lourds,la mécanique générale (usinage) et la conduite d'engins de tp dont certains font plus de 40 tonnes et depuis peu la gestion d'un parc d'environ 100 engins et véhicules.auxquels, je consacre plus de 1O heures par jours mais j'aime ça
excel n'est là que pour me seconder comme base de données que j'utilise en plus du système déjà en place de la société
sur ce bon, dimanche
cordialement pascal