Bonsoir à tous,
Avec le code suivant, je compte le nombre de valeurs situées dans la colonne "B".
Le résultat correspondant est affiché dans la colonne "E".
1) Comment affiché le titre "NBRE" automatiquement dans cette colonne "E" ?
2) Comment puis-je faire pour supprimer les valeurs situées dans la colonne "A",
sans affecter le fonctionnement du code?
Merci pour votre aide.
Cordialement,
BChaly
Avec le code suivant, je compte le nombre de valeurs situées dans la colonne "B".
Le résultat correspondant est affiché dans la colonne "E".
1) Comment affiché le titre "NBRE" automatiquement dans cette colonne "E" ?
2) Comment puis-je faire pour supprimer les valeurs situées dans la colonne "A",
sans affecter le fonctionnement du code?
Merci pour votre aide.
Cordialement,
BChaly
Code:
Sub CpteValTexte()
Dim C As Object, I&
Set C = CreateObject("Scripting.dictionary")
With Sheets("feuil1")
For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
C(.Cells(I, 2).Value) = C(.Cells(I, 2).Value) + 1
Next I
.Columns("D:E").ClearContents
With .Cells(1, 4).Resize(C.Count, 1)
.Value = Application.Transpose(C.Keys)
.Offset(0, 1) = Application.Transpose(C.Items)
End With
End With
End Sub
Pièces jointes
Dernière édition: