[VBA][Excel] Lancer procédure

**mulanzia2003** · 27/07/2006, 08h56

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** · 27/07/2006, 09h28

Target c'est un Range ?

Code :

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

ByVal Target As Range

**mulanzia2003** · 27/07/2006, 10h52

Oui mais je ne comprend pas ta question ?

**illight** · 27/07/2006, 10h52

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

**padre03** · 27/07/2006, 10h55

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** · 27/07/2006, 11h00

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

**illight** · 27/07/2006, 11h22

C'est quoi ces P,F et A ? c'est quoi ce A qu'il y aurait probablement dans ta cellule ?

**mulanzia2003** · 27/07/2006, 11h35

A est le racourci pour Anomalie.
Mon fichier est une succession de contrôle à réaliser.
P : signifie programmé
F : signifie fait sans problème
A : signifie anomalie -> ouvre une fiche pour renseigner l'anomalie rencontrée.

**mulanzia2003** · 27/07/2006, 11h39

Pour vous éclairer,
avant mon fichiers excel comporter 13 onglets
1 annuel, 12 fiches mensuels
Sur chacunes des fiches j'ai mis le code:
Private Sub Worksheet_Change(ByVal Target As Range)

et là pas de problème cela fonctionné.
Cependant cela prennait un volume important.

Maintenant, je veux réduire le nombre d'onglets (feuilles excel)
1 annuel, 1 masques et en créer une suivant le mois de l'année.
Je soushaite sur cette fiche avoir le même code que précédement.

**SfJ5Rpw8** · 27/07/2006, 11h46

et le message d'erreur il apparait à quel moment ..
- Quand tu sélectionne quelque chose dans tes listes de choix.....

sur une autre action ...?

et pourquoi surveiller
"G2:H500" alors que tes listes de choix ne sont qu'en "I2:I300"

**illight** · 27/07/2006, 11h50

Envoyé par 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à

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"

**ouskel'n'or** · 27/07/2006, 17h01

Target donne la cellule active

**mulanzia2003** · 28/07/2006, 06h25

Je viens de vous rattacher mon fichier pour que vous puissiez comprendre mon problème.
Le mot de passe : aurelie
C'est mon prénom.

**SfJ5Rpw8** · 28/07/2006, 09h07

Envoyé par bbil

et le message d'erreur il apparait à quel moment ..
- Quand tu sélectionne quelque chose dans tes listes de choix.....

sur une autre action ...?

le message n'apparai-t'l pas sur copie... ou tout autre action provoquant la modification simultanée de cellules..?

**mulanzia2003** · 28/07/2006, 09h21

Oui c'est exact. Il apparait au moment ou je test la valeur de ma cellule pour supprimer ou non la colonne.
Mais pourquoi ???

J'ai joins mon fichier dans mon précédent post.

**illight** · 28/07/2006, 09h23

Envoyé par ouskel'n'or

Target donne la cellule active

Selon l'aide, ça donne pas la cellule active mais une plage de cellules

je comprend pas trop ce que tu veux dire en fait la ?

EDIT : en mettant la tu as la target un target.cells(9,3).value tu n'a splus l'erreur sur la ligne, malheureusement je sais pas si ça te convient. Tu veux faire quoi au final ? tu veux qui regarde toutes les colonnes de la feuille nommée "janvier" (quand ut clique sur janvier au début) ?

**ouskel'n'or** · 28/07/2006, 09h30

Fais ça dans la feuille de code de la feuille de calcul :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      MsgBox Target.Address 'Donne l'adresse de la cellule active
      MsgBox Target.Row
      MsgBox Target.Column
End Sub

..............................................................

**mulanzia2003** · 28/07/2006, 09h37

Oui c'est exactement cela OUSKEL'N'OR, je soushaite qu'il scrute toute ma colonne. Dès que l'on passe un élément de la colonne de P à A, il y a une action qui se lance.

**mulanzia2003** · 28/07/2006, 09h38

je regarde ce que tu m'as dit et je te dis

**SfJ5Rpw8** · 28/07/2006, 09h56

Envoyé par mulanzia2003

Oui c'est exact. Il apparait au moment ou je test la valeur de ma cellule pour supprimer ou non la colonne.
Mais pourquoi ???

J'ai joins mon fichier dans mon précédent post.

ben si tu modifie plusieur cellules en simultané ton code ..:

Code :

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