XL 2021 comptage d’une col

  • Initiateur de la discussion Initiateur de la discussion ivgu19
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ivgu19

XLDnaute Junior
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")
 

Pièces jointes

Bonsoir le fil

@ivgu19
Une possibilité pour ce qui est du comptage
(la fin du code donc)
Code:
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 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour