NB.Si
mylord666
Messages postés
162
Statut
Membre
-
mylord666 Messages postés 162 Statut Membre -
mylord666 Messages postés 162 Statut Membre -
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
Bonjour
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."
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."
