Discussion :

[JulietteDodue]

Bonjour!

Je cherche à automatiser le calcul d'une valeur cible dès modification d'un ensemble de cellule. J'ai trouvé un "code" sur internet, PROBLEME: je souhaite l'appliquer sur: des cellules seules ET sur UNE PLAGE de cellule (G21:G92): concrètement dès que la valeur d'une cellule citée ci-dessous change, cela active le calcul d'une valeur cible.

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = Range("C2").Address Or Target.Address = Range("C4").Address Or Target.Address = Range("G21:G92").Address Then 
Range("F1").GoalSeek Goal:=0, ChangingCell:=Range("D10") 
End If 
End Sub

Pour info le code ci-dessus marche quand je change le cellules C2, C4, mais il ne marche pas quand je modifie une cellule dans la plage G21:G92
Je suis débutante en VBA, quelqu'un pourrait m'aider? Merci d'avance !
PS2: c'est mon anniverssaire aujourd'hui

[unparia]

Bonjour

Intéresse-toi à la méthode Intersect (rubrique Application.Intersect, méthode de ton aide interne VBA)

[JulietteDodue]

Si vous faites référence à l'aide fournie à partir de la page VBA (en cliquant sur "?"), je l'ai déjà consultée, mais je ne comprends rien à rien à ce qu'ils me racontent, on dirait que c'est les phrases ont été directement traduites de l'anglais ? J'ai tenté d'utiliser Intersect de plusieurs manières, dont:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C2").Address Or Target.Address = Range("C4").Address Or Target.Address = Range("C5").Address Or Target.Address = Range("C6").Address Or Target.Address = Range("C10").Address Or Target.Address = Range("C16").Address Or Target.Address = Range("C22").Address Or Target.Address = Range("C23").Address Or Target.Address = Range("C24").Address Or Target.Address = Range("C25").Address Or Target.Address = Range("L55").Address Or Target.Address = Range("L79").Address Or Target.Adress=Intersect(Target, Range("P31:P92")).Adress
Then
    Range("F7").GoalSeek Goal:=0, ChangingCell:=Range("C7")
End If
End Sub

Evidemment sa na marche pas. Comment utiliser intersect ? Pour info j'ai excel 2010.

[unparia]

C'est pourtant simple (et rédigé en très bon français ...!)
- Target est un objet Range (la cellule objet de la modification)
- Range("G21:G92") est également un objet Range
target est dans Range"G21:G92") si l'intersection de ces deux objet n'est pas Nothing (rien) --->> à main levée --->>

Code :

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

if not application.intersect(target, range("G21:G92")) is nothing

Quand tu lis l'aide : lis bien, au lieu de crier que c'est une mauvaise traduction. Surtout que cette rubrique est fort bien rédigée (mais apparemment non "digérée")