Activecell.adress

Bonjour,

je vous contacte car rencontre un soucis avec un activecell.adress mais seulement le dernier du code ci-dessous

  For i = 1 To UBound(TblBD)

     If (ActiveCell.Address = "$AY$10") And TblBD(i, 5) = Date _
Or (ActiveCell.Address = "$AY$11") _
And (TblBD(i, 5) >= Date - Weekday(Date, vbMonday) + 1) And (TblBD(i, 5) <= Date - Weekday(Date, vbMonday) + 7) _
Or (ActiveCell.Address = "$AY$12") _
And (TblBD(i, 5) >= Date - Weekday(Date, vbMonday) + 1) And (TblBD(i, 5) <= Date - Weekday(Date, vbMonday) + 30) _
Or (ActiveCell.Address = "$AY$13") Then

        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
         c = 0
         For Each k In ColVisu
           c = c + 1: Tbl(c, n) = TblBD(i, k)
         Next k
     End If
   Next i
   If n > 0 Then List_Tasks_tobedone.Column = Tbl Else List_Tasks_tobedone.Clear

En effet les activecell fonctionne correctement pour

"$AY$10"
"$AY$11"
"$AY$12"

mais cela ne fonctionne pas pour AY13 en cliquant sur la case mais le code généré mon userform quand je test via visualbasic

a priori l'erreur vient donc de

Or (ActiveCell.Address = "$AY$13")

mais je ne vois pas ce qui cloche.

Je suis par conséquent preneur de vos idées pour débloquer ce soucis

merci par avance

Bonjour,

qu'est-ce qui te fait penser que cela ne fonctionne pas avec $AY$13 ? as-tu essayé de vérifier ce que la macro faisait en mode pas-à-pas ?

quand je clique sur la case aucune réaction...

bonjour,

mets ton fichier avec ton code et dis-nous comment reproduire le problème.

en créant le fichier pour reproduire le soucis j'ai trouvé la faille!

il me manquait une autre partie

  If Not Intersect(Target, Range("AZ13")) Is Nothing Then
    ToBeDone.Show
     End If

bonne journée

désolé pour le dérangement mais cela m'aura au moins mis sur la voie :)