NB.Si

Fermé
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 12 août 2014 à 10:16
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 12 août 2014 à 23:03
Bonjour,


je rencontre un soucis avec mon code je voulais connaitre le nombre fe fois qu'une cellule identique exciste dans une plage d'une feuille excel


sub(combinaison()
dim c as variant,d as variant
c=inputbox.value
d=sheets("group").cells(i,11).value
i=10
wlhile i<=10
If c=d then
sheets("groupe").range("AA2").formulalocal="=NB.SI(k:k:c)
exit if
end if
i=i+1
wernd
end sub

cela fonctione pas bien et la cellule AA2est toujours égale à 0
j'ai l'impression que quelques chose ne fonctionne pas qui peut m'aider
merci d'avance de votre aide précieuse

2 réponses

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par skk201 le 12/08/2014 à 17:01
Bonjour

Sub StartDouble()
Dim Ran As Range
    Set Ran = Selection
MsgBox "Cette information apparait " & DOUBLES(InputBox("Que rechercher ?"), Ran) & " fois."
End Sub

Function DOUBLES(obj_Recherche As String, Plage As Range) As Integer
Dim Resultat As Integer
Dim Cell As Range
For Each Cell In Plage
If UCase(Cell.Value) = UCase(obj_Recherche) Then
Resultat = Resultat + 1
End If
Next
DOUBLES = Resultat
End Function


Je dois juste vérifier quelques détails mais sa devrait marcher.

Ajouter ces deux procédures au module
Sélectionné les cellules concernées
[ALT] + [F8]
Lancer la macro "StartDouble"

EDIT : Voila j'ai fait une petit correction

*Vous pouvez mettre en forme votre code grâce à la flèche en haut a droite de l'éditeur de texte.
Pensez mettre vos messages en [Résolu] et cliquer sur le + des conseil qui vous ont été utiles."
0
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015
12 août 2014 à 23:03
merci beaucoup je vais le tester merci merci
0