Discussion :

[guigui69]

Bonjour à tous,

voici mon code qui fonctionne: (celui-ci est placé dans le thisworkbook)

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    '(sinon la suite de la macro renvoie un message d'erreur)
    If Target.Count > 1 Then Exit Sub
 
    If Target.Column = "11" Then
 
    MsgBox "Vous venez de modifier " & Target.Row & "la cellule " & Target.Address & " (" & Target.Value & ")"
 
 
        MsgBox (WorksheetFunction.VLookup(Target.Value, Sheets("BD_parametre").Range("A3:B10"), 2, False))
 
        Dim today As Date
today = Date
MsgBox (today)
mm = today + WorksheetFunction.VLookup(Target.Value, Sheets("BD_parametre").Range("A3:B10"), 2, False)
MsgBox ("mm" & mm)
 
MsgBox (Range("A" & Target.Row).Value)
Total = Range("A" & Target.Row).Value - mm
 
MsgBox (Total)
 
If (Total < 0) Then
MsgBox ("Impossible de faire la livraison à cette date...la date minium est de " & mm & "")
Range("H" & Target.Row & ":K" & Target.Row).ClearContents
 
End If
 
 
ElseIf Target.Column = "7" Then
 
x = Application.WorksheetFunction.SumIf(Range("A4:A300"), Range("A" & Target.Row).Value, Range("g4:g300"))
MsgBox (x)
 
If (x >= 8) Then
MsgBox ("impossible ajouter une nouvelle preparation le quota de 8h maximun est atteint, merci de programmer cela à une autre date")
Range("D" & Target.Row & ":G" & Target.Row).ClearContents
End If
 
Else: Exit Sub
 
End If
End Sub

Je voudrais savoir comment faire pour que ce code fonctionne sur tout les feuilles de mon document excel.?

Car sur la première page c'est bon, mais sur la 2eme /3eme cela ne fonctionne pas.

Quel erreur est-je commis ?

merci d'avance pour votre aide

guigui69

[Menhir]

Car sur la première page c'est bon, mais sur la 2eme /3eme cela ne fonctionne pas.

Tu pourrais être plus précis dans la description de ce qui se passe ? "ça ne fonctionne pas", c'est un peu vague comme description de problème.

Tu as essayer de mettre un message juste après ton Sub (par exemple un Debug.Print "Ok ") pour savoir si le problème vient du déclenchement de la macro ou du contenu ?

[guigui69]

D'accord,

J'ai refait un test et la sa fonctionne. J'ai du modifier une colonne sans faire attention j'ai corriger mon erreur et la c'est bon

merci

guigui69