Discussion :

[LAPATATE81]

Bonjour.

Je souhaiterais rajouter 2 conditions a cette formule avant qu'elle ne fasse son action (avant le If):

Code :

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

1
2
3
4
5
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address = "$B$2" And Target.Value <> "" Then
        Sheets("FRED").Cells(Application.Match(Me.Range("A2"), Sheets("FRED").Range("A13:A197"), 0) + 12, 2) = Target.Value
      End If
    End Sub

Premièrement, j'aimerais entrer en F2 "une valeur condition" permettant de choisir la feuille ou je veux ecrire (FRED pour l'exemple)
Puis j'aimerais entrer "une valeur condition" en E2, qui si elle se trouve en E10 sur la feuille Fred lance la Macro au dessus

J'ai essayer avec les Fonctions Else If, mais je ne dois pas avoir la bonne syntaxe

Merci

[Kimy_Ire]

Bonjour LAPATATE81,

Ce sont de nouvelles conditions donc ce sont des If supplémentaires.
Ainsi tu peux avoir :

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
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomFeuil As String
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    If Target.Value <> "" Then
        NomFeuil = Range("B2")
        If FeuilleExiste(NomFeuil) Then
            'If => condition sur E2
                Sheets(NomFeuil).Cells(Application.Match(Me.Range("A2"), Sheets(NomFeuil).Range("A13:A197"), 0) + 12, 2) = Target.Value
            'End If
        Else
            MsgBox "La valeur insérée en B2 ne correspond à aucune feuille existante."
        End If
    End If
End If
End Sub

avec dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
Function FeuilleExiste(NomFeuille) As Boolean
Dim f As Object
 
On Error Resume Next
Set f = Sheets(NomFeuille)
 
If Err = 0 Then FeuilleExiste = True
Set f = Nothing
End Function

En revanche, je ne comprends pas ton histoire en E2.

Cordialement,
Kimy