Bonjour,
Je sollicite votre aide car je ne comprend pas pourquoi je n'arrive pas à mon résultat escompté. Je souhaite compter le nombre de cellules non vides dans la colonne A de la feuille 1 et dans la colonne A de la feuille 2, mais le tout défini par des variables.
J'ai réalisé la macro suivante, mais celle-ci compte toujours le nombre de cellules non vide dans la feuille qui a été sélectionnée par un clic manuel. Il y a un nombre différent de données dans les deux feuilles. Si vous voulez le fichier, je l'envoie ce soir car il est filtré au travail.
Quelles sont mes erreurs?
Merci d'avance pour votre précieuse aide,
Bien cordialement,
Je sollicite votre aide car je ne comprend pas pourquoi je n'arrive pas à mon résultat escompté. Je souhaite compter le nombre de cellules non vides dans la colonne A de la feuille 1 et dans la colonne A de la feuille 2, mais le tout défini par des variables.
J'ai réalisé la macro suivante, mais celle-ci compte toujours le nombre de cellules non vide dans la feuille qui a été sélectionnée par un clic manuel. Il y a un nombre différent de données dans les deux feuilles. Si vous voulez le fichier, je l'envoie ce soir car il est filtré au travail.
Quelles sont mes erreurs?
Code:
Sub ComptageTest()
Dim SheetClient As Worksheet
Dim SheetSource As Worksheet
Dim ComptCellNonVide1 As Integer
Dim ComptCellNonVide2 As Integer
Dim myRange As Range
ComptCellNonVide1 = 0
ComptCellNonVide2 = 0
Set SheetClient = ThisWorkbook.Worksheets(1)
Set SheetSource = ThisWorkbook.Worksheets(2)
Set myRange = Range("A:A")
SheetClient.Activate
SheetSource.Activate
With SheetClient
.Select
ComptCellNonVide1 = Application.WorksheetFunction.CountA(myRange) - 1 '-1 Car en tête au début du tableau
MsgBox ComptCellNonVide1 & " Personnes comptées en liste client"
End With
With SheetSource
.Select
ComptCellNonVide2 = Application.WorksheetFunction.CountA(myRange) - 1 '-1 Car en tête au début du tableau
MsgBox ComptCellNonVide2 & " Personnes comptées en liste source"
End With
End Sub
Merci d'avance pour votre précieuse aide,
Bien cordialement,