Bonjour,
Aïe la macro ne fonctionne plus depuis aujourd’hui. :-(
Il me semble pas avoir fait quelque chose de différent pourtant, comme d'habitude, j'ai ajouté des colonnes et des lignes, mais quand je teste en faisant des colonnes semblables, je n'ai plus la couleur jaune qui s'affiche sur la ligne des dates en doublons.
Actuellement j'ai 66 colonnes "numérotées" de A à BS et 27 lignes.
La dernière version qui fonctionne date du 26-12 et avait 58 colonnes "numérotées" de A à BL et 25 lignes.
Le simple fait d'ajouter une colonne met à l'arrêt la macro.
Qu'est-ce qui dysfonctionne d'un seul coup ?
Est-ce que cela créerait une plage trop grande par rapport aux données de la macro ?
Voici le code:
Option Explicit
Dim tablo, plage As Range
Dim i&, j&, jc&, flag&
Private Sub Worksheet_Change(ByVal Target As Range)
tablo = Range("A1").CurrentRegion
Set plage = Range("A1").CurrentRegion
Rows("1:1").Interior.Color = xlNone
If Not Intersect(Target, plage) Is Nothing Then
For j = 5 To UBound(tablo, 2) - 1
For jc = j + 1 To UBound(tablo, 2)
flag = 0
For i = 2 To UBound(tablo, 1)
If (tablo(i, j) = "" And tablo(i, jc) <> "") _
Or (tablo(i, jc) = "" And tablo(i, j) <> "") Then
flag = 1
Exit For
End If
Next i
If flag = 0 Then
Cells(1, j).Interior.Color = RGB(255, 255, 0)
Cells(1, jc).Interior.Color = RGB(255, 255, 0)
End If
Next jc
Next j
End If
End Sub
Merci d'avance pour l'aide :-)