Bonjour,
Tout d'abord merci pour le Forum, qui m'aide toujours.
J'utilise un code VBA que j'ai copié d'un autre fichier que j'adapte pour donner le nombre de professeurs dans textbox dans un userform. Mais Je rencontre un petit problème avec, il ne compte pas les toutes cellules non vides d'une colonne cible, il compte seulement les cellules pleines qui sont au dessus d'une cellule vide.
Ce que je souhaite faire est de compter les cellules pleines entre des cellules vides.
Voici le code:
Public Function nbre_prof()
Application.Volatile
Sheets("Base_D").Select
nbre_prof = 0
For n = 2 To 50
If IsEmpty(Cells(n, 1)) Then
nbre_prof = n - 2
Exit For
End If
Next
End Function
Meci pour vos aides
Cordialement
Tout d'abord merci pour le Forum, qui m'aide toujours.
J'utilise un code VBA que j'ai copié d'un autre fichier que j'adapte pour donner le nombre de professeurs dans textbox dans un userform. Mais Je rencontre un petit problème avec, il ne compte pas les toutes cellules non vides d'une colonne cible, il compte seulement les cellules pleines qui sont au dessus d'une cellule vide.
Ce que je souhaite faire est de compter les cellules pleines entre des cellules vides.
Voici le code:
Public Function nbre_prof()
Application.Volatile
Sheets("Base_D").Select
nbre_prof = 0
For n = 2 To 50
If IsEmpty(Cells(n, 1)) Then
nbre_prof = n - 2
Exit For
End If
Next
End Function
Meci pour vos aides
Cordialement