Compteur Excel
bonjour a tous,
étant nouveau, j'ai cherché en vain la solution a mon problème que j'ai pas trouvé ou alors mal chercher, voila :
dans la cellule A1 il y a un menu déroulant ex: banane, poire, pomme,
dans A1 je choisie banane, je voudrais que dans B1 soit noté banane 1
dans A2 je choisie pomme, je voudrais que dans B2 soit noté pomme 1
dans A3 je rechoisie banane, je voudrais que dans B1 soit noté banane 2
ainsi de suite,
j’espère avoir été assez clair car moi même, je m'embrouille
en vous remerciant par avance
SLT
Bonjour et bienvenue,
voir le fichier joint et à adapter à ton cas.
J'ai utiliser la fonction NB.SI
NB: pour tes prochaines questions, merci de donner un petit fichier.
Bonjour
(Les spécialistes raccourciront le code)
Code Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim Var As Variant
On Error Resume Next
Range("B1", [B1].End(xlDown)).Select
Var = Application.WorksheetFunction.CountIf(Selection, Target & "*")
Target.Offset(, 1) = Target.Value & Var + 1
Target.Select
End If
End SubCordialement
bonjour
merci bien mais c'est pas trop cela
je vous envoie votre fichier modifier
merci encore Désiré