Probleme de Byref
w
Bonjour,
J'ai systématiquement un problème de Byref incompatible lorsque j'essaye de faire appel à une procédure, quelqu'un pourrait m'expliquer pourquoi ?
Exemple sur ça, ou je dois faire un echiquier en 10X10 à partir de la case x,y précisée par l'utilisateur
Sub echiquier10x10(ByRef x As Double, ByRef y As Double)
Dim i As Integer, j As Integer
For i = x To x + 9
For j = y To y + 9
If (i + j) mod 2 = 0 Then
Cells(i, j).Interior.Color = RGB(0, 0, 0)
Else
Cells(i, j).Interior.Color = RGB(200, 0, 0)
End If
Next j
Next i
End Sub
Sub testechiquier()
Dim x, y As Double
x = Application.InputBox("Saisir une valeur", Type:=1)
y = Application.InputBox("Saisir une valeur", Type:=1)
echiquier10x10 x, y
End SubEdit modo : code mis entre balises, merci d'y faire attention la prochaine fois
Merci d'avance
Invité
Bonjour wtr,
Il faut typer toutes les variables
Dim x As Double, y As DoubleA+