Discussion :

[spud96]

Bonjour,

J'ai un petit soucis

J'ai un fichier excel avec deux feuilles , je souhaiterai faire une macro pour que lorsque je modifie la cellule A6 de la feuill 2 , une msgbox s'ouvre si la valeur de de la cellule A7 de la feuill 1 est inf à 0,9;



Merci de votre aide

[laetitia]

bonjour spud96 le forum on peut le faire comme cela dans ta feuil2 évenementielle
code

Option Explicit

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 Application.Intersect(Target, Range("A6")) Is Nothing Then
If Sheets("Feuil1").[a7] < 0.9 Then MsgBox "ton message"
End If
End Sub

[spud96]

Merci pour ton aide ca fonctionne mais je souhaiterai compliqué un peu le truc et j'y arrive pas

En faite je souhaiterai appliquer ce controle a une zone

En feuill1 la zone de controle va de A7 à L7

Et n feuill 2 de A6 à L12

Les colonnes representent des mois par exemple toures les donnees de la colonne A de la feuill 2 se controle à A7 de la feuill 1.

Autres question est il possible d'utiliser une msgbox avec le petit logo croix rouge désol mais je suis vraiment débutant

Merci encore

[laetitia]

re pour le message tu ecris comme cela

Code :

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

MsgBox "ton message", vbCritical

pour le reste j ai pas compris exactement ce que tu veus faire
zip un bout de fichier sans donnees confidentielle pour voir

[LeForestier]

Bonjour tous, toutes
En mettant le code dans l'évenement Selection_Change ont a une réaction immédiate.
En testant la cellule APRES une éventuelle modification évite le message à chaque changement de sélection,
enfin.. si j'ai compris ce qui est demandé...

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
16
17
18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncCel
Static AncAdd As String
    If Target.Count > 1 Then Exit Sub
    If AncAdd <> "" Then
        If Not Application.Intersect(Range(AncAdd), Range("A6:L12")) Is Nothing Then
            If Range(AncAdd) <> AncCel Then
                If Sheets("Feuil1").Cells(7, Range(AncAdd).Column) < 0.9 Then
                    MsgBox "ton message"
                    'Si ont veux annuler la modification faite
                    Range(AncAdd) = AncCel
                End If
            End If
        End If
    End If
    AncAdd = Target.Address
    AncCel = Target
End Sub

A+