Extraction données dans tableau
Bonjour à toutes et tous
Après un long moment d'absence j'aurai besoin d'aide pour l'extraction de données.
En réalité je veux récupérer dans une suite de chiffre une fréquence.
Le plus simple est de voir mon fichier joint
Merci pour votre aide
bonjour
a tester
=NB.SI(B4:G4;">"&0)mais il y a un hic es tu sur de tes resultats ?
cordialement
Merci oui en réalité je cherche la fréquence entre la colonne 1 et la moment ou je trouve un 1 .
Dans le cas ou je trouve un 1 je dois afficher comme résultat l'entête de la colonne -1
Merci pour votre aide
Bonjour tapir26200,
Tu a écrit :Dans le cas où je trouve un 1 je dois afficher comme résultat l'entête de la colonne -1
● si ton 1 est en colonne 4, ça doit retourner : 4 - 1 = 3
● si ton 1 est en colonne 2, ça doit retourner : 2 - 1 = 1
● si ton 1 est en colonne 1, ça doit retourner : 1 - 1 = 0
donc problème : si le résultat est 0, tu ne peux pas faire la différence
entre un 1 trouvé en colonne 1 et pas de 1 trouvé !
C'est pourquoi je te propose 2 tableaux de résultats :
Tableau de résultats n° 1
C'est comme tu l'as demandé, donc avec pour 0 l'ambiguïté décrite ci-dessus.
En B33 : =SIERREUR(EQUIV(1;B4:G4;0)-1;0)
a) formule de B33 tirée à droite jusqu'en K33
b) formules de B33:K33 tirées vers le bas jusqu'en ligne 58
Tableau de résultats n° 2
Vide si 1 non trouvé, et 0 si 1 trouvé en colonne 1.
En B62 : =SIERREUR(EQUIV(1;B4:G4;0)-1;"")
a) formule de B62 tirée à droite jusqu'en K62
b) formules de B62:K62 tirées vers le bas jusqu'en ligne 87
Si besoin, tu peux me demander une adaptation.
Merci de me dire si ça te convient.
Cordialement,
dhany
super merci je vais contrôler mais je pense que c'est cela ....!!!!
Un immense merci
Bonjour
Me revoilà
Super la fonction marche mais j'aurai besoin du calcul inverse qui par du moment ou j'ai un 1 et qui compte le nombre de 0 merci
Bonjour tapir26200,
Me revoilà aussi !
Je te propose ce fichier Excel :
Dans le tableau résultat, une cellule est vide s'il n'y a aucun 1 dans une série ; sinon, c'est qu'un 1 a été rencontré, et donc ça retourne le nombre de zéros présents à sa droite : 0 si aucun 0 à droite du 1er 1, n si n 0 à droite du 1er 1 ; je te laisse vérifier si tout est ok.
Alt F11 pour voir le code VBA, puis revenir sur Excel
Si besoin, tu peux demander une adaptation.
Merci de me dire si ça te convient.
Cordialement,
dhany
J'ai mis le fichier avec le résultat que je désire
Merci beaucoup, étant néophyte en macro comment je peux récupérer la macro du fichier pour l'a copier dans le fichier d'origine et que cela fonctionne...
Merci
Ton fichier d'origine doit être un fichier .xlsm ... comme c'est déjà le cas pour le fichier "test tableau2.xlsm" que tu as joint dans ton message d'hier à 17:06.
Après avoir ouvert ton fichier d'origine .xlsm fais Alt F11 ➯ fenêtre « Microsoft Visual Basic » ; fais Alt i m pour insérer un nouveau module, et sur la page blanche qui apparaît à droite, fais-y un copier / coller du code VBA ci-dessous :
Option Explicit
Function Nb0() As Variant
Application.Volatile
Dim chn$, l&, c As Byte, p As Byte
With Application.Caller: l = .Row - 29: c = .Column: End With
For p = c To c + 5: chn = chn & Cells(l, p): Next p
p = InStr(chn, "1")
If p = 0 Then
Nb0 = ""
Else
Nb0 = Len(Replace$(Right$(chn, Len(chn) - p), "1", ""))
End If
End FunctionFacultatif (mais c'est mieux) : fais Alt d et choisis le 1er item « Compiler VBAProject » ; cet item est grisé si le code VBA a déjà été compilé et qu'il n'y a eu aucun changement.
Alt F11 pour retourner sur Excel ; dans ton 2ème tableau du bas, mets cette formule dans la 1ère cellule où tu veux avoir un résultat : =Nb0() ; c'est une fonction sans aucun argument, tout comme : =AUJOURDHUI()
Il reste juste à tirer cette formule à droite jusqu'à la dernière colonne du tableau, puis en laissant cette 1ère ligne sélectionnée, tirer le tout vers le bas jusqu'à la dernière ligne du tableau.
Fini, t'as droit à un repos bien mérité !
Cordialement,
dhany
Merci pour ton temps...!
Le repos ce n'est pas moi qui le mérite...! Je risque d'avoir encore besoin de ton aide prochainement....
Merci encore
je viens de faire la manip.
Ok mais en réalité pour simplifié le tableau que j'ai 130 colonnes sur 50 lignes....
Le paquet de colonnes à prendre en compte est par groupe de 25 soit de la colonne 1 -- 25 puis 2-26 puis 3-27....
Je te passerais bien le fichier mais il est trop gros....
Voici les 2 adaptations à faire pour le code VBA :
1) par rapport au nombre de lignes
Prends d'abord pour exemple "test tableau 2.xlsm" ; la 1ère ligne de donnée de ton tableau bas est la ligne 33 ; la 1ère ligne de donnée de ton tableau haut est la ligne 4 ; 33 - 4 = 29 ; d'où : l = .Row - 29 ; remplace 29 par ce qu'il faut selon ton vrai tableau.
2) par rapport au groupe de 25
For p = c To c + 5 ; 5 était pour un groupe de 6, donc pour un groupe de 25, à remplacer par 24 : For p = c To c + 24
ATTENTION : si tu as un tableau de plus de 255 colonnes, tu devras remplacer
Dim chn$, l&, c As Byte, p As Byte par : Dim chn$, l&, c%, p%
car le type Byte est pour des nombres de 0 à 255.
c et p seront alors des variables de type Integer
Au niveau de la feuille de calcul, la formule est identique : =Nb0()
mais il faut la tirer plus loin à droite jusqu'à la dernière colonne,
puis tirer la ligne entière plus loin en bas jusqu'à la dernière ligne.
dhany