Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Set recherche = absent.Cells.Find(codecoll & ",", absent.Cells(m, 3 + (mois - 1) * 4), xlValue, xlWhole)
 
If Not recherche Is Nothing Then
 
  absent.Cells(m, 3 + (mois - 1) * 4).Replace What:=codecoll & ",", Replacement:=""
 
End If
Voila, j'ai un calendrier avec des codes personnes absentes. (codecoll). Lorsque celles-ci s'en vont, je dois supprimer toutes les références à cette entrée à partir de cette date.

Mais qd je lance ce code on me dit que l'indice n'appartient pas a la selection. Pourquoi?

Merci d'avance.