XL 2021 comptage d’une col

ivgu19 · 7 Octobre 2024

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 · 7 Octobre 2024

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

Staple1600 · 7 Octobre 2024

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

ivgu19 · 8 Octobre 2024

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

XL 2021 comptage d’une col

ivgu19

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ivgu19

XLDnaute Junior

Discussions similaires