Déclenchement auto d'une macro?

**canary** · 10/05/2009, 11h09

Bonjour à tous,

Voici mon problème :
Avec une fonction SI je vais chercher une info (dans une autre feuille) à mettre dans la case "I22".
Si cette info vaut "100%" alors je veux mettre "0" dans J22
Sinon mettre "3" dans J22.

Je veux faire ça sous forme de macro automatique (sans cliquer sur un bouton de commande).

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I22" Then
    If Target = "100%" Then
        [J22].Value = "0"
    ElseIf Target = "75%" Then
        [J22].Value = "3"
    End If
End If
End Sub

Et ça ne me fait rien du tout

Je suppose que tout vient de la déclaration de ma première ligne "Worksheet_Change" qui n'est pas bonne ?

Merci pour votre aide!
Aud- [débutante]

**Minick** · 10/05/2009, 11h18

Salut,

Change simplement

Code :

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

    If Target = "100%" Then

par

Code :

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

    If Target = 1 Then

et

Code :

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

ElseIf Target = "75%" Then

par

Code :

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

    ElseIf Target = 0.75 Then

++
Minick

**canary** · 10/05/2009, 11h22

je viens d'essayer ta solution (j'ai même essayé avec des "" et aussi avec des Like) mais ça ne me fait toujours pas les modifications automatiquement

Le pire c'est que j'ai essayé de mettre un point d'arrêt dans la macro et en fait il se trouve que cette macro n'est jamais lue!

une autre idée?

**Minick** · 10/05/2009, 11h26

Tu es certain d'avoir mis le code dans la feuille ou tu veux que le code evenementielle se lance
et pas dans un module???

++
Minick

**canary** · 10/05/2009, 11h29

yep yep, je suis certaine que c'est dans la bonne feuille et pas dans un module

**Minick** · 10/05/2009, 11h34

Bizarre

J'ai fait le test et je n'ai pas de probleme.

Dans un autre code n'aurais-tu pas desactive les evenements
avec

Code :

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

Application.EnableEvents = False

++
Minick

**Gégé29** · 10/05/2009, 11h34

Re bonjour

essaies de placer ton code dans l'évènement: Worksheet_SelectionChange

a plus

**canary** · 10/05/2009, 11h39

alors je confirme que je n'ai rien désactivé et le fait de changer en SelectionChange ne change rien à mon problème

Je comprends pas ce qui se passe!

**laetitia** · 10/05/2009, 11h41

bonjour canary Gégé29 Minick le forum a adapter

Code :

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

1
2
3
4
5
6
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("i22")) Is Nothing Then
If Target.Text = "100%" Then [J22].Value = 0 Else [J22].Value = 3
End If
End Sub

**canary** · 10/05/2009, 11h42

si je clique sur la case I22 alors le 3 apparait (si c'est 75%) mais dans mon application, je n'ai pas à cliquer dessus pour le faire apparaitre....

**canary** · 10/05/2009, 11h44

désolée Laeticia mais ta solution ne fonctionne pas non plus :s

PS: ça sert à quoi "Option Explicit" ?

**laetitia** · 10/05/2009, 11h51

re, option explicit sert a déclarer les variable explicitement par défaut il se met automatiquement.dans chaque module cela évite de le rajouter. dans le cas présent il sert a rien pas de variable par contre je comprends pas bien se que tu veus faire!!!

**ilank** · 10/05/2009, 11h54

bonjour à tous, le forum,

perso , je n'ai pas compris la cohérence entre l'énoncé et le code.

vous parlez d'aller chercher une info dans une autre feuille, mais le code n'y fait jamais référence; l'info est à placer dans la cellule "I22" du feuillet courant mais le code inscrit l'info dans la cellule "J22".

Pour rendre automatique, la récupération de l'info; il y a à mon sens deux événements à traiter :
1) La modification l'info dans l'autre feuillet, passant de "100%" à "75%" et inversement (Worksheet_Change()) de l'autre feuillet

2) L'activation du feuillet devant récupérer l'info (WorkSheet_Activate())

puisque ces deux événements, lance la même procédure; créer une procédure public qui sera appelée par les deux événements.

**Gégé29** · 10/05/2009, 11h57

Quand on ne comprend plus rien, il faut peut-être relire la question.

Comment vat-tu chercher une info (dans une autre feuille) à mettre dans la case "I22"?

Pourquoi ne pas mettre une fonction SI dans la cellule J22?

Les solutions les plus simples sont parfois les meilleurs.

a quatre on devrait y arriver

**canary** · 10/05/2009, 11h58

Alors je récapitule :

Mon problème :
Avec une fonction SI je vais chercher une info (dans une autre feuille) à mettre dans la case "I22".
Si cette info vaut "100%" alors je veux mettre "0" dans J22
Sinon mettre "3" dans J22.
Je veux faire ça sous forme de macro automatique (sans cliquer sur un bouton de commande).

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I22" Then
    If Target = 1 Then
        [J22].Value = "0"
    ElseIf Target = 0.75 Then
        [J22].Value = "3"
    End If
End If
End Sub

Et ça ne me fait rien du tout

Si je change la première ligne :

Code :

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

1
2
 
Private Sub Worksheet_Change(ByVal Target As Range)

en :
[CODE]

Code :

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

1
2
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cette fois il faut que je clique sur I22 pour que le nombre en J22 apparaisse...

Moi j'ai simplement besoin que le nombre en J22 apparaisse automatiquement.
Comment faire ?

Voici la ligne de code pour aller chercher l'info de la case I22 :

Code :

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

=RECHERCHEV(1;AnalyseF3!$J$35:$T$154;EQUIV("Indice fiabilité";AnalyseF3!$J$3:$T$3;0);FAUX)

Explication : je vais chercher dans la feuille AnalyseF3 la valeur se trouvant dans "Indice de fiabilité" et je vais mettre cette valeur dans I22 qui est dans la feuille "Synthèse".

**Gégé29** · 10/05/2009, 12h04

pourquoi ne pas mettre la fonction suivante dans J22?

Code :

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

=SI(I22=100%;0;3)

**canary** · 10/05/2009, 12h08

sauf qu'en vrai j'ai plus que 2 valeurs :
100% => 0
75% => 3
50% => 7
25% => 15

comment cela peut s'écrire avec une condition SI ?

**Gégé29** · 10/05/2009, 12h12

Tout à fait

Code :

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

=SI(I22=100%;0;SI(I22=75%;3;SI(I22=50%;7;SI(I22=25%;15;""))))

**canary** · 10/05/2009, 12h14

En effet! j'avoue... j'aime me compliquer l'existence! lol
Merci pour cette solution toute simple

Déclenchement auto d'une macro? [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager