Problème VBA
Résolu
Jacket39
-
Jacket39 -
Jacket39 -
Bonjour,
J'ai créé une fonction pour remplir les cases d'un tableau en fonction du type d'Equipe et de la date.
Voici le code que j'ai fait (le problème est qu'il m'indique une erreur et ne s'actualise pas:/ )
Function remplissage(deb1, fin1, deb2, fin2, Equipe)
Dim I, X, T, numcoul As Integer
Dim R As String
Select Case Equipe
Case Is = "Equipe 1"
numcoul = 55
Case Is = "Equipe 2"
numcoul = 3
Case Else
numcoul = 56
End Select
deb1 = deb1 - 40908
fin1 = fin1 - 40908
deb2 = deb2 - 40908
fin2 = fin2 - 40908
For T = 0 To 362
ActiveCell.Offset(0, T).Interior.ColorIndex = 0
Next T
For I = 0 To 362
If fin1 >= I And deb1 <= I Then
ActiveCell.Offset(0, I).Interior.ColorIndex = numcoul
End If
Next I
For X = 0 To 362
If fin2 >= X And deb2 <= X Then
ActiveCell.Offset(0, X).Interior.ColorIndex = numcoul
End If
Next X
End Function
Merci de vos réponses =)
J'ai créé une fonction pour remplir les cases d'un tableau en fonction du type d'Equipe et de la date.
Voici le code que j'ai fait (le problème est qu'il m'indique une erreur et ne s'actualise pas:/ )
Function remplissage(deb1, fin1, deb2, fin2, Equipe)
Dim I, X, T, numcoul As Integer
Dim R As String
Select Case Equipe
Case Is = "Equipe 1"
numcoul = 55
Case Is = "Equipe 2"
numcoul = 3
Case Else
numcoul = 56
End Select
deb1 = deb1 - 40908
fin1 = fin1 - 40908
deb2 = deb2 - 40908
fin2 = fin2 - 40908
For T = 0 To 362
ActiveCell.Offset(0, T).Interior.ColorIndex = 0
Next T
For I = 0 To 362
If fin1 >= I And deb1 <= I Then
ActiveCell.Offset(0, I).Interior.ColorIndex = numcoul
End If
Next I
For X = 0 To 362
If fin2 >= X And deb2 <= X Then
ActiveCell.Offset(0, X).Interior.ColorIndex = numcoul
End If
Next X
End Function
Merci de vos réponses =)
2 réponses
-
Bonjour,
quelle est l'erreur indiquée, et quelle est la ligne qui génère cette erreur ?
Cordialement. -
Bonjour
Une fonction ne te revnoit que la seule valeur "remplissage"
donc soit tu passes par une macro paramétrée ou une macro appelant la fonction "remplissage se bornant à colorier la cellule(tu remplaces numcouleur pas remplissage et la fin de ta fonction s'arr^te après end select)
Michel
