Macros avec plusieurs conditions

Bonjour.

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

Code:

---

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

Bonjour LAPATATE81,

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

Code:

---

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:

---

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