Discussion :

[canary]

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]

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]

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]

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]

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

[Minick]

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]

Re bonjour

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

a plus