Discussion :

[mulanzia2003]

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.

[SfJ5Rpw8]

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

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 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..)

[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.

[ouskel'n'or]

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 :

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

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+

[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.

[Petogaz]

salut,

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 !

[mulanzia2003]

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

Code :

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

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 !!!