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
 

Discussions similaires

Réponses
6
Affichages
485

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki