Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 comptage d’une col

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

  • affichage_comptage.xlsx
    8.3 KB · Affichages: 4

Staple1600

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…