J'ai remarque que lorsqu'on met de la couleur sur une cellule et qu'on passe a une autre cellule, l'action premiere sera d'enlever la couleur. Si dans cette cellule il n'y avais pas de couleur au depart, ca prend donc 2 click pour mettre de la couleur. Donc, on dirait que le processus s'inverse si on le fait pas au complet (2 click) dans la cellule precedente. Idealement, il faudrait que le premier click du bouton mettre de la couleur.
P.S. j'ai fait un copier coller de la macro pour le bouton lien sur mon application, mais j'ai des problemes. Est-ce que j'ai bien coller "option explicit" et dim oldcel a la bonne place?
Private Sub BOUTON_COMPILER2_Click()
COMPILATEUR
End Sub
Option Explicit
Dim Oldcel As Range
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Lg
Application.ScreenUpdating = False
If Not Intersect(Columns(9), ActiveCell) Is Nothing Then
If InStr(1, ActiveCell, ",") > 0 Then
Lg = Application.Match(Split(ActiveCell, ",")(1), Columns(8), 0)
Else
Lg = Application.Match(Split(ActiveCell, " ")(1), Columns(8), 0)
End If
If Not IsError(Lg) Then
Set Oldcel = ActiveCell
Range("H" & Lg).Select
End If
ElseIf Not Intersect(Columns(8), ActiveCell) Is Nothing Then
If ActiveCell <> "" Then
If Not Oldcel Is Nothing Then
Oldcel.Select
Else
On Error Resume Next
Columns(9).Find(what:=ActiveCell, LookIn:=xlValues, lookat:=xlPart).Select
End If
Else
Set Oldcel = Nothing
ActiveCell.Select
End If
End If
End Sub