alfazoulou
XLDnaute Occasionnel
Bonjour à tous.
j'ai trouvé sur le forum ne discussion qui pouvait régler mon problème, à savoir, à partir d'une cellule donnée, remonter jusqu'à la prochaine cellule non vide, et écrire dans une autre cellule le nombre de lignes vides.
le code tant le suivant
Dim P As Range
If Application.CountBlank(Range("A1:A46")) Then
For Each P In Range("A1:A46").SpecialCells(xlCellTypeBlanks).Areas
P(1).Offset(0, 1).Value = P.Count
Next P
End If
mon soucis c'est que je voudrais le mettre dans l'événement change de la feuille afin que ma cellule soit toujours renseignée en temps réel...Sauf que le code n'arrête pas de s'exécuter.
Si quelqu'un sait pourquoi...
merci d'avance pour vos réponses
j'ai trouvé sur le forum ne discussion qui pouvait régler mon problème, à savoir, à partir d'une cellule donnée, remonter jusqu'à la prochaine cellule non vide, et écrire dans une autre cellule le nombre de lignes vides.
le code tant le suivant
Dim P As Range
If Application.CountBlank(Range("A1:A46")) Then
For Each P In Range("A1:A46").SpecialCells(xlCellTypeBlanks).Areas
P(1).Offset(0, 1).Value = P.Count
Next P
End If
mon soucis c'est que je voudrais le mettre dans l'événement change de la feuille afin que ma cellule soit toujours renseignée en temps réel...Sauf que le code n'arrête pas de s'exécuter.
Si quelqu'un sait pourquoi...
merci d'avance pour vos réponses