[VBA-E] Action dès que la valeur change.

Version imprimable

25/02/2006, 16h54
mulanzia2003

[VBA-E] Action dès que la valeur change.

Bonjour,

Je met un tableau de bord en place sur Excel.
J'ai des cases A1, B1, C1, ....Z1 qui sont égales à P.

Je souhaite que dès que la valeur P est remplacé par la valeur A, alors j'ouvre la feuille appelé Anomalie.

Existe t -il quelque chose pour faire cela.

tu pourrai rajouter une action événemetielle sur changement d'état.. dans la feuille concernée..:
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1:Z1"), Target) Is Nothing Then If Target = "A" Then Sheets("anomalie").Activate End If End Sub
(place le code dans la feuille à tester..)

26/02/2006, 11h01
mulanzia2003

OK merci cela fonctionne.
Maintenant je souhaiterai récuperer la valeur de la case Bi si la valeur de la case Ai ="A".

Enfin je te remercie de ton aide.

Je pense que i est ton N° de ligne... Dans ce cas là, je préfère travailler sur les N° de colonne que sur les lettres. Ce qui donne, avec l'exemple de bbil :
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A1:Z1"), Target) Is Nothing Then If Target = "A" Then Cells(Target.Row, 1) = Cells(Target.Row, 2) End If End Sub
Tu dis si ça te convient

A+

26/02/2006, 12h15
mulanzia2003

C'est pas exactement ce que je souhaite.
En fait dès que la case A1 = A alors je souhaite ouvrir la feuille anomalie.
Dans la feuille anomalie, je souhaite récupérer en case B1 de la feuille anomalie la valeur de la case B1 de la feuille ou on a mis A1 (par exemple "Feuil1").
Voilà.

mais ton code m'interresse. je le travaille.
26/02/2006, 14h00
Petogaz

salut,

Citation:

Envoyé par mulanzia2003

Dans la feuille anomalie, je souhaite récupérer en case B1 de la feuille anomalie la valeur de la case B1 de la feuille ou on a mis A1 (par exemple "Feuil1").

j'arrive pas à bien comprendre cette phrase ! :?

Bonjour, voilà le résultat que je voulais atteindre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect(Range("A2:F9"), Target) Is Nothing Then
 
        If Target = "A" Then
        Sheets("anomalie").Activate
        Worksheets("anomalie").Rows("2:2").Select
        Selection.Insert Shift:=xlDown
        Worksheets("anomalie").Range("B2").Value = "Essai"
        Worksheets("anomalie").Cells(2, 2) = Cells(Target.Row, 1)
        End If
  End If
 
End Sub

Merci à tous !!!