XL 2021 comptage d’une col

[ivgu19]

Bonjour

Je ne suis pas parvenu à résoudre mon problème seul. Je sollicite une aide auprès de la communauté en particulier sur une ligne de code.

Petit topo

Sélection et copie dans un dossier des img.jpg de doudou sous la forme « prénom_nom

Collage sur feuil « comparaison JPG » en ligne7 col A

Résultat: Comptage du nb d’images 2

C’est peut être la derniere ligne du code ci-dessous qui cause pb

' Nommer et formater les en-têtes (ligne, col)

wsDest.Cells(1, 1).Value = "images recensées"

wsDest.Cells(1, 1).Font.Size = 18

wsDest.Cells(1, 1).HorizontalAlignment = xlCenter

wsDest.Cells(3, 1).Value = "Nombre de fichiers : " & Application.WorksheetFunction.CountA(wsDest.Range("A7:A" & wsDest.Cells(wsDest.Rows.count, "A").End(xlUp).row)) & " au " & Format(Date, "dd/mm/yyyy")

 

[sylvanu]

Bonjour Ivgu,
Votre fichier est un xlsx, donc pas de macros.

 

[Staple1600]

Bonsoir le fil

@ivgu19
Une possibilité pour ce qui est du comptage
(la fin du code donc)

Sub test_ok()
Dim F As Worksheet, R As Range: Set F = ActiveSheet
Set R = F.Range(F.[A7], F.Cells(F.Rows.Count, "A").End(xlUp))
With Application
.ScreenUpdating = False
F.[A3].Value = Format(Date, """Nombre de fichiers au "" dd/mm/yyyy") & " : " & .WorksheetFunction.CountA(R)
End With
End Sub

PS: je n'ai pas ouvert la PJ
Mais test OK sur mon PC

A adapter donc selon le dit fichier

 

[ivgu19]

Bonjour à tous les deux,
Erreur de ma part sur l'envoi d'un xlsx quant au comptage je pense pouvoir adapter.
Merci pour l'aide, bonne journée