Microsoft 365 Excel VBA formule MAX IF avec des variables

myspace449

XLDnaute Nouveau
Bonjour, je suis débutante en vba. Je bloque depuis des heures sur une erreur, j'arrive pas à trouver la solution. J'espère compter sur votre expertise ;)
Voilà j'ai fait un petit code qui tourne plutôt bien. Pas de bug. Par contre la ligne que j'ai mis en jaune dans le code me renvoie une erreur dans mon fichier Excel: #NOM? Erreur due à un nom non valide. Quand je clique dans la cellule qui contient l'erreur, je vois afficher dans la barre de formule: =MAX(SI(SQL!Range("B1:B1000")<Feuil3!Range("F" & i);SQL!Range("B1:B1000"))). La ligne de code surlignée en jaune devrait me renvoyer une date.
Merci d'avance pour votre aide


Sub Macro1()
Dim i As Integer, a As Integer, e As Integer

i = 2
a = 2
e = 1


Do While i < 3000
Sheets("Feuil3").Select
If Range("B" & i) = Range("H" & a) Then
Range("H" & a & ":" & "K" & a).Select
Selection.Copy
Sheets("SQL").Select
Range("A" & e).Select
ActiveSheet.Paste
a = a + 1
e = e + 1
ElseIf Range("B" & i) = Range("H" & a - 1) Then
Range("L" & i).Value = "=MAX(IF(SQL!Range(""B1:B1000"")<Feuil3!Range(""F"" & i),SQL!Range(""B1:B1000"")))"

End If
Loop

End Sub
 

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024