numéros appelé par un autre

[jad73]

bonjour le forum
je recherche une formule ,macro ou code pour comptabiliser les sortis d'un numéros aprés un autre,je joint un bout de fichier qui j'espere sera plus explicite
merci

 

[Paritec]

Re : numéros appelé par un autre

Bonjour Jad73,
moi j'ai lu l'énoncé et c'est tout clair donc j'ai refermé
a+
papou 🙂

 

[julberto]

Re : numéros appelé par un autre

Bonjour Jad73,

J'ai lu et relu mais cela reste pour l'instant une énigme pour moi aussi.
En attendant plus amples informations.

A +

 

[Paritec]

Re : numéros appelé par un autre

re Julberto Jad73,
Je suis content de constater que je ne suis pas le seul idiot à ne pas comprendre une demande aussi bien expliqué que la tienne Jad !!!!!
a+
Papou🙂


EDIT : bout de fichier qui j'espere sera plus explicite "" hé bien non pas du tout""

 

[Staple1600]

Re : numéros appelé par un autre

Bonsoir à tous

Voila ce que j'ai compris (en se basant sur 3 lignes)

Sur la ligne 1; le chiffre 1 est sorti une fois
Sur les lignes 1,2 le chiffre 2 est sorti 2 fois
Sur les lignes 1,2,3 : le chiffre 3 est sorti 2 fois

etc.. etc

 

[julberto]

Re : numéros appelé par un autre

Bonjour Staple1600,

Certes, OK pour les premières lignes mais ensuite c'est semble-t-il incohérent.
Dès la ligne 6 :
5 -> 3 fois au lieu de 2 fois
6 -> 4 fois au lieu de 3 fois
7 -> 1 fois au lieu de "rien"
8 -> 2 fois au lieu de 1 fois
9 -> 1 fois au lieu de "rien"
10 -> 1 fois OK 1 fois

Obtenu avec la formule :"=NB.SI($A$2:E2;G2)" à tirer vers le bas.

Cordialement, et en espérant que Jad73 y trouve son bonheur.

 

[jad73]

Re : numéros appelé par un autre

bonjour le forum
je m'excuse pour mes explications qui ne sont pas trés explicite mais pour moi elles me semblaient claires vu que j'effectue ce travail par copier/coller et une macro pour le tri mais c'est long.
J'ai modifié mon fichier qui me semble plus clair(je l'espere)
chaque numéros de la ligne 2 appelle tous les numéros de la ligne suivante 3 que je recopie a l'emplacement de numéro de la ligne 2, c'est a dire que la ligne 3 est recopié 5 fois, 1 fois a chaque numéros de la ligne 2.
merci

 

[julberto]

Re : numéros appelé par un autre

Bonjour Jad73, le fil, le forum,

Il me semble avoir compris l'algorithme souhaité.

Option Explicit

Sub Jad73()

Dim larg As Integer, Série1 As Variant, Série2 As Variant
Dim i%, j%, CaseCol%, CaseLig%, MaxLig%

i = 2
larg = Range("A2").CurrentRegion.Columns.Count
MaxLig = Range("A2").CurrentRegion.Rows.Count
Série1 = Range(Cells(i, 1), Cells(i, larg)).Value
CaseLig = 15

While i <= MaxLig
  i = i + 1
  Série2 = Range(Cells(i, 1), Cells(i, larg)).Value
  For j = LBound(Série1, 2) To UBound(Série1, 2)
    CaseCol = (Série1(1, j) - 1) * 6 + larg + 2
    Range(Cells(CaseLig, CaseCol), Cells(CaseLig, CaseCol + larg - 1)) = Série2
  Next
  Série1 = Série2
  CaseLig = CaseLig + 1
Wend

End Sub

Voir le fichier pour agréer ou pas.

jad73
vu que j'effectue ce travail par copier/coller et une macro pour le tri mais c'est long.

Je te laisse donc la suite.

cordialement

 

[JJ1]

Re : numéros appelé par un autre

Bonjour,

Une fonction personnalisée qui fait la même chose (+ les paires) dans le fichier joint (mais inversé, cellule du dessus).
J'ai volontairement laissée la ligne en-tête du code dans Visual Basic et la date, vous y reconnaitrez le savoir-faire de notre ami parti trop vite.Hélas.

Bonne soirée à tous.

 

[jad73]

Re : numéros appelé par un autre

bonjour le forum,julberto

c'est exactement ça que je recherchait julberto,merci
2 petites questions
1) peut-on supprimer les lignes vides car mon fichier fait pour le moment 350 lignes
2)la plage de données n'est pas dans la meme feuille ou faut-il rajouter pour que la recopie s fasse sur l'autre feuille
merci

 

[julberto]

Re : numéros appelé par un autre

Bonjour Jad73, le fil,

Tes deux demandes ont été prises en compte dans cette nouvelle mouture.
Ta base de données ne doit pas contenir de valeurs nulles, elle peut avoir une dimension quelconque (longueur & hauteur).
Les commentaires dans la macro te guideront pour une adaptation appropriée à ton classeur.

cordialement

 

[jad73]

Re : numéros appelé par un autre

bonjour julberto,le forum
j'ai donc rcopié ton nouveau code mais j'ai une" erreur 1004 Erreur définie pr l'application ou par l'objet"
et c'est la ligne dans 'inscription des n° des blocs de résultats. est c'est Next j qui est en jaune
"For j = 1 To DeltaV: rLig(j) = Départ - 1: wsR.Cells(rLig(j), (larg + 1) * (j - 1) + 1) = j: Next j"
de quoi cela vient-il
merci

 

[julberto]

Re : numéros appelé par un autre

RE,

En mode arrêt (= quand next j est surligné en jaune), que valent les variables suivantes : rLig(j) , larg et j.
Pour avoir leur valeur en mode arrêt, poser la souris sur ces variables et une info bulle te donnera l'info.

A +

 

[jad73]

Re : numéros appelé par un autre

re julberto le forum
quand je passe la souris j'ai j=44
je pense qu'il faille une feuil3 pour les résultats,comme excel 2003 va jusqu'a IV et que la feuil2 ne suffit pas.
merci

 

[julberto]

Re : numéros appelé par un autre

Bonjour Jad73,

C'est tout à fait ce que je supputais.
Écrire sur une troisième feuille en continuité de la feuille2 ne pose pas de problème. Si tu n'y arrives pas dis-le.

cordialement