NB.Si Fermé

Question

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

skk201 · Answer

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."

mylord666 · Answer

merci beaucoup je vais le tester merci merci

NB.Si

2 réponses

Discussions similaires