> Tous les forums > Forum Bureautique
 [Excel 2007] Fonction NB.SI - problème
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Mike Portnoy
  Posté le 25/06/2014 @ 16:16 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

Je me permets de vous écrire pour m'aider à composer une formule assez spéciale.

Mon tableau contient plusieurs chiffres séparés par des espaces.

De plus, dans une autre colonne, j'ai une liste de chiffres de 1 à 26 (voir tableau excel ci-joint).

Ce que j'aimerai faire, c'est que la cellule C1 m'indique combien de fois le chiffre de la cellule B1 se trouve dans la liste A1 à A2.

Exemple :

Dans la liste, combien de fois ressort le chiffre de la cellule B23 ? 2x

Combien de fois ressort le chiffre de la cellule B3 ? 2x

En espérant avoir été clair, merci d'avance pour vos réponses.

Publicité
Mike Portnoy
 Posté le 25/06/2014 à 16:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Anonyme a écrit :

Salut

NB.SI() ne sert pas à ça !


La preuve que je ne suis pas très doué...

Les nombres sont au format "standard".

Merci beaucoup pour votre aide

DjiDji59430
 Posté le 25/06/2014 à 18:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Tu selectionnes la colonne A puis Données--> convertir, tu choisis espace, et tu te retrouve avec 4 colonnes et la tu peux utiliser nb.si().

Par exemple en f23 =nb.si(a1:d26;e23)



Modifié par DjiDji59430 le 25/06/2014 22:24
ferrand
 Posté le 25/06/2014 à 22:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

J'ai pas mieux pour l'instant, en C1:

=SOMMEPROD(--(ESTNUM(CHERCHE(STXT(SUBSTITUE(" "&$A$1&" "&$A$2&" ";" "&B1&" ";"A");LIGNE(INDIRECT("1:"&NBCAR(SUBSTITUE(" "&$A$1&" "&$A$2&" ";" "&B1&" ";"A"))));1);"A"))))

On peut décomposer en 2 maillons, cela permet d'ailleurs de mieux comprendre le mécanisme.

En C1 : =SUBSTITUE(" "&$A$1&" "&$A$2&" ";" "&B1&" ";"A")

En D1 : =SOMMEPROD(--(ESTNUM(CHERCHE(STXT(C1;LIGNE(INDIRECT("1:"&NBCAR(C1)));1);"A"))))

(2e partie inspirée de Boisgontier )

Toutes les formules sont tirables sur la colonne.

ferrand
 Posté le 25/06/2014 à 23:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Re,

Une solution plus simple : en C1 :

=(NBCAR($A$1&$A$2)+3-NBCAR(SUBSTITUE(" "&$A$1&" "&$A$2&" ";" "&B1&" ";"")))/(NBCAR(B1)+2)

A tirer sur la colonne.

ferrand
 Posté le 26/06/2014 à 12:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Pour le fun, une autre solution utilisant une fonction personnalisée :

Function NBDANS(nr As Integer, ParamArray suites())
Dim i%, j%, n%, ch
Application.Volatile
If IsMissing(suites) Then
NBDANS = CVErr(xlErrNA)
Exit Function
End If
For i = 0 To UBound(suites)
If Application.WorksheetFunction.IsText(suites(i)) Then
ch = Split(suites(i))
For j = 0 To UBound(ch)
If IsNumeric(ch(j)) Then
If CInt(ch(j)) = nr Then n = n + 1
Else
NBDANS = CVErr(xlErrValue)
Exit Function
End If
Next j
Else
NBDANS = CVErr(xlErrValue)
Exit Function
End If
Next i
NBDANS = n
End Function

La fonction étant collée dans un module standard, en C1 la formule suivante (à tirer sur la colonne comme les autres) :

=NBDANS(B1;$A$1;$A$2)



Modifié par ferrand le 26/06/2014 12:25
ferrand
 Posté le 27/06/2014 à 22:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Une autre variante personnalisée :

Function NBDEDANS(nr As Integer, ParamArray suites())
Dim i%, h%, n%, ch
Application.Volatile
If IsMissing(suites) Then
NBDEDANS = CVErr(xlErrNA)
Exit Function
End If
For i = 0 To UBound(suites)
If Application.WorksheetFunction.IsText(suites(i)) Then
ch = Replace(" " & suites(i) & " ", " " & nr & " ", Chr(191))
Do
h = InStr(h + 1, ch, Chr(191))
If h > 0 Then n = n + 1
Loop While h > 0
Else
NBDEDANS = CVErr(xlErrValue)
Exit Function
End If
Next i
NBDEDANS = n
End Function

C1 => =NBDEDANS(B1;$A$1;$A$2)

ferrand
 Posté le 29/06/2014 à 16:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Je n'ai plus de variantes intéressantes !

Mike Portnoy
 Posté le 01/07/2014 à 17:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Wow je devrais me connecter plus souvent sur PCASTUCES, merci pour tous ces renseignements, je vous redirai quelle solution je vais utiliser.

Merci beaucoup.

Lui
 Posté le 05/07/2014 à 11:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello tous ,

Juste pour dire, Ferrand, respect

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Clavier mécanique Roccat Vulcan 121 (RGB, rétroéclairé, switch Linear) à 78,77 €
78,77 € 120 € -34% @Amazon

Amazon fait une promotion sur le clavier mécanique Roccat Vulcan 121 (RGB, rétroéclairé) qui passe à 78,77 € au lieu de 120 €. 


Voir le bon plan
Ecran 27 pouces Samsung Smart Monitor M5 (Full HD, WiFi, Airplay 2) à 119 € (via ODR)
119 € 200 € -40% @GrosBill

Grosbill fait une promotion sur l'écran 27 pouces Samsung Smart Monitor M5 qui passe à 149 € au lieu de 200 €. Or Samsung vous rembourse actuellement 30 € pour l'achat de cet écran qui vous reviendra à 119 € après remboursement.

Une excellente affaire pour cet écran atypique puisqu'il intègre le système Tizen de Samsung. Vous pouvez l'utiliser comme écran PC mais également comme appareil autonome puisqu'il intègre la gamme d'applications Smart telles que Amazon Prime Video, Netflix, YouTube et Disney + via la télécommande, sans avoir besoin de votre PC.

Vous pourrez également connecter votre PC Portable, Smartphone ou votre dernière console de jeu au Smart Monitor via HDMI, WiFi, Bluetooth ou Airplay. Et grâce à la fonction Auto Source Switch +, le Smart Monitor détecte les appareils connectés dès qu’ils sont branchés et affiche la bonne source.


Voir le bon plan
Jeu de 8 tournevis Stanley essentiels à 11 €
11,00 € 15 € -27% @Amazon

Amazon fait une promotion sur le jeu de 8 tournevis Stanley essentiels à 11 € au lieu de 15 €. 


Voir le bon plan
Téléphone portable Energizer E13 (2G) à 12,99 €
12,99 € 30 € -57% @Amazon

Amazon fait une promotion sur le téléphone portable Energizer E13 (2G) qui passe à 12,99 €. Si vous recherchez un téléphone qui vous servira à téléphoner et envoyer des SMS, qui ne craint rien et qui dispose d'une excellente autonomie (150 h en veille), voici l'appareil qu'il vous faut. Il intègre une radio FM et peut prendre en charge jusqu'à 2 cartes SIM (mini SIM).


Voir le bon plan
Carte graphique MSI Radeon RX 6800 Gaming Z Trio 16 Go à 492,04 € livrée
492,04 € 600 € -18% @Amazon Allemagne

Amazon Allemagne propose actuellement la carte graphique MSI Radeon RX 6800 Gaming Z Trio 16 Go à 483,02 €. Comptez 8,02 € pour la livraison en France soit un total de 492,04 € livrée au lieu de 600 €. Une bonne affaire pour une carte graphique performante qui vous permettra de jouer à tout en haute qualité et haute fréquence en 1440p/1080p.


Voir le bon plan
5 bobines de filament PLA AmazonBasics (1,75 mm, 5x1 kg, 5 couleurs) à 67,31 €
67,31 € 91 € -26% @Amazon

Amazon fait une belle promotion sur le lot de 5 bobines de filament PLA AmazonBasics pour imprimante 3D (1,75 mm, 1 kg) à 67,31 € au lieu de 91 €. Vous obtiendrez 5 bobines de 1 kg : bleu, noir, gris foncé, blanc et rouge. Un très bon filament testé sans problème par nos soins.


Voir le bon plan

Sujets relatifs
Excel 2007 Problème bizarre #valeur!
Probleme d'enregistrement avec excel 2007
Fonction SI Excel (Excel 2007)
Probleme excel - tri dans macro Excel 2007
Problème de "fonction" sous Excel
Problème doc excel 2007 et office 2002
fonction FIN.MOIS Excel 2007
Problème avec mon graph à bulles sur Excel 2007
Excel 2007 problème formule
Problème virgule Excel 2007
Plus de sujets relatifs à [Excel 2007] Fonction NB.SI - problème
 > Tous les forums > Forum Bureautique