Discussion :

[mulanzia2003]

Re Bonjour,
J'explique mon programme :
1) Copier la feuille "Masque Planning" en dernier et la renommer "NomFichier"
2) Prendre les données dans Planning annuel et les mettre dans "NomFichier"
3) Mettre P,F,A dans les cellules I3 à I300

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
 
    Sheets(NomFichier).Range("I3:I300").Select
    With Selection.validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="P,F,A"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Maintenant mon problème arrive :
Dès que l'on modifie la valeur I3 à I300 cela crée des actions.
Le code qui fonctionne est celui là :

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
 
Dim détailanomalie
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("G2:H500"), Target) Is Nothing Then
        If Target = "A" Then
        Worksheets("anomalie").Cells(6, 4) = Cells(Target.Row, 5)
        Worksheets("anomalie").Cells(7, 4) = Cells(Target.Row, 4)
        Cells(Target.Row, 9).Activate
        ActiveCell.FormulaR1C1 = "=TODAY()"
        Worksheets("anomalie").Activate
        détailanomalie = Format(InputBox("Expliquer l'anomalie constatée", , ""))
        Worksheets("anomalie").Cells(9, 4).Value = détailanomalie
        Sheets("anomalie").Select
        Worksheets("anomalie").Cells(2, 5).Activate
        ActiveCell.FormulaR1C1 = "=TODAY()"
        Sheets("anomalie").Activate
        End If
        If Target = "F" Then
        Cells(Target.Row, 9).Activate
        ActiveCell.FormulaR1C1 = "=TODAY()"
        End If
    End If
End Sub

Le problème est sur la ligne "If Target = "A" Then"
On me dit : Incompatibilité de type
Quelqu'un a t-il une idée ??
Merci

[illight]

Target c'est un Range ?

Code :

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

ByVal Target As Range

[mulanzia2003]

Oui mais je ne comprend pas ta question ?

[illight]

Bah ton target est définit comme un Range..
TU m'explique comment une plage de cellules peut etre égal a une lettre ?

[padre03]

C'est vrai ça
c'est un peu comme dire choux=poire

Quand tu veux tester la valeur d'un objet range, il vaut mieux utiliser
range.value
c'est plus sur. Donc dans ton cas ça donnerais:

Code :

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

If Target.value = "A" Then

Voilà

[mulanzia2003]

ton idée est intéressante mais cela plante toujours avec la même raison incompatibilité de type.

[illight]

C'est vrai ça
c'est un peu comme dire choux=poire

Quand tu veux tester la valeur d'un objet range, il vaut mieux utiliser
range.value
c'est plus sur. Donc dans ton cas ça donnerais:

Code :

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

If Target.value = "A" Then

Voilà

tu peux meme pas faire ça, il faut que tu cible la cellule que tuv eux, par xemple faire un target("A1").value la ça marcherai..

Essaye peut etre d'écrire ça :

Code :

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

target.cells(1,1).value = "A"

pour faire un test, après c'est a toi de le mettre en forme pour ta procédure avec 2 for imbriqués par exemple, pour parcourir ta plage d cellule que tu appelle "target"