Argument ou appel de procédure incorrect

Question

Bonjour,

J'ai une erreur d'éxécution '5 ' : Argument ou appel de procédure incorrect' sur la ligne que j'indique dans le code ci dessous

Sub JoueFleche()

Dim Nom_Classeur_Macro As String
Dim Fleche As String
Dim p As Integer

Nom_Classeur_Macro = ActiveWorkbook.Name

msg = "Etes vous sur le Projet : Eure ?"
StyleBoîteDialogue = vbYesNo + vbDefaultButton2
Title = "Choix Projet"
réponse = MsgBox(msg, StyleBoîteDialogue, Title)
If réponse = vbYes Then
Fleche = "FlecheEure"
Else
Fleche = "FlecheDorsal"
End If

For p = 2 To 10000
        If 10 <= Sheets("C6").Cells(p, 20).Value < 11 Then
        Sheets("C6").Cells(p, 23).Value = Sheets(Fleche).Cells("C2").Value ''''''''''''''''''ICI'''''''''''''''''
        Sheets("C6").Cells(p, 23).Interior.Color = RGB(250, 170, 70)
    End If
Next p

End Sub

Auriez vous une idée ? Merci !

3GB · Accepted Answer

Il veut pas appliquer la solution ? Mais il m'agace ce visual basic

Sheets("C6").Cells(p, 23).Value = Sheets(Fleche).Range("C24").Value

Pour la petite info :

[C24] <=> range("C24") <=> cells(24, 3)
[C24:D25] <=> range("C24:D25") <=> range(cells(24, 3), cells(25, 4))

Ce n'est qu'une question de forme. Au moins tu as la logique, tu vas vite progresser

gmb · Answer

Si tu joignant ton fichier, on comprendrait mieux... Bye ...

3GB · Answer

Malheureusement, cette syntaxe ne fonctionne pas et il faut fixer la borne min et la borne max en 2 fois : If Sheets("C6").Cells(p, 20).Value &gt;= 10 and Sheets("C6").Cells(p, 20).Value &lt; 11 Then Cdlt...

3GB · Answer

Bravo, je suis content pour toi ! Fini, pas sûr. Une fois qu'on a mis le pied dedans, on ne s'arrête de modifier, améliorer... C'est le début de l'aventure...