Bonjour le Forum,
j'ai un petit souci avec une macro. L'objectif de cette dernière est de changer la couleur à l'intersection de Lignet et Colonne deux variables définies par des cirtères. En l'occurence leur égalité avec RAffaire et NSemaine.
Lors de l'exécution de la macro j'ai le message suivant
avec dans cette ligne de code ..."Ligne" surligné:
je suppose que cela est du à la définiton de mes variables mais je ne vois pas comment les initialiser d'une autre façon..
je m'en remets à vous
merci par avance..
Julien
@+
j'ai un petit souci avec une macro. L'objectif de cette dernière est de changer la couleur à l'intersection de Lignet et Colonne deux variables définies par des cirtères. En l'occurence leur égalité avec RAffaire et NSemaine.
Lors de l'exécution de la macro j'ai le message suivant
Erreur de compilation, incompatibilité de type
avec dans cette ligne de code ..."Ligne" surligné:
Code:
If Not Intersect(Ligne, Colonne) Is Nothing Then
je suppose que cela est du à la définiton de mes variables mais je ne vois pas comment les initialiser d'une autre façon..
je m'en remets à vous
Code:
Sub Supprim_Color()
Dim Raffaire As Variant
Dim NSemaine As Long
Dim Intersection As Range
Dim Colonne As Long
Dim Ligne As Long
Range("A4").Select
While ActiveCell.Value <> Raffaire
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = Raffaire Then Ligne = ActiveCell.Row
Wend
Range("BC3").Select
While ActiveCell.Value <> NSemaine
ActiveCell.Offset(0, -1).Select
If ActiveCell.Value = NSemaine Then Colonne = ActiveCell.Column
Wend
With Sheets("MoSemaine")
Application.EnableEvents = False
If Not Intersect(Ligne, Colonne) Is Nothing Then
Worksheets(ActiveSheet.Name).Cells(Ligne.Row, Colonne.Column).Interior.ColorIndex = 4242
End If
Application.EnableEvents = True
End With
End Sub
merci par avance..
Julien
@+