NB.Si
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
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
-
merci beaucoup je vais le tester merci merci
-
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."
