Bonjour,
(je pensais avoir publié ce poste hier mais je ne le retrouve pas bizaremment donc je le reposte à nouveau)
J'ai un tableau avec dans chaque colonne (à partir de A) une date à la ligne 6 et des noms à partir de la ligne 7
Je cherche une fonction qui compte avec la fonction COUNTA le nombre de ligne de la même colonne à partir de la ligne 7 qui ont une valeur (un nom) et qui inscrive le résultat dans la cellule A4
Pareil pour chaque colonne, et inscription dans B4, C4 etc
Je dois absolument utiliser VBA et non une formule dans la cellule car toutes les cellules de l'onglet peuvent s'effacer via une autre macro et dans ce cas les formules aussi le sont. C'est pourquoi VBA est ma seule solution...
J'ai essayé de bricoler la macro suivante mais bien sûr elle bug
Private Sub Worksheet_Change(ByVal Target As Range)
Dim numwords As Integer
Dim i As Long
With ActiveSheet
For i = 1 To Rows.Count
numwords = WorksheetFunction.CountA(Range(Cells(7, i)), Cells(200, i))
Cells(4, i) = numwords & " " & "used rooms"
Next i
End With
End Sub