Exraction de ligne en colonne
Résolu
jack2125
Messages postés
457
Date d'inscription
Statut
Membre
Dernière intervention
-
jack2125 Messages postés 457 Date d'inscription Statut Membre Dernière intervention -
jack2125 Messages postés 457 Date d'inscription Statut Membre Dernière intervention -
https://www.cjoint.com/c/LExqJ0x6IVMnjour a tous
les instructions sont dans le tableau joint
https://www.cjoint.com/c/LExqJ0x6IVM
c'est assez compliqué a expliquer sans le tableau
les instructions sont dans le tableau joint
https://www.cjoint.com/c/LExqJ0x6IVM
c'est assez compliqué a expliquer sans le tableau
A voir également:
- Exraction de ligne en colonne
- Partage de photos en ligne - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Mètre en ligne - Guide
- Colonne word - Guide
10 réponses
Bonjour
Même avec le tableau, ça reste extrêmement compliqué à comprendre ...
"C4:Q4 représente le nombre de fois que la ligne supérieure est égale en quantité exemple pour 1 c'est 7 fois pour 6 c'est 3 fois" : ça veut dire quoi ?
Même avec le tableau, ça reste extrêmement compliqué à comprendre ...
"C4:Q4 représente le nombre de fois que la ligne supérieure est égale en quantité exemple pour 1 c'est 7 fois pour 6 c'est 3 fois" : ça veut dire quoi ?
bonjour Raymond
comment ca les Antilles..
le nombre 1 est présent 7 fois
le nombre 6 est présent 3 fois
est ce plus compréhensible?
au plaisir de te lire
comment ca les Antilles..
le nombre 1 est présent 7 fois
le nombre 6 est présent 3 fois
est ce plus compréhensible?
au plaisir de te lire
Bonsoir
Coucou Raymond , je crois avoir compris le n° 1 est sorti 7 fois, le 2 est sorti 9 fois etc (données rentrées par l'utilisateur qui veut ensuite ressortir tous les n°s sortis 7 fois etc )
Jack, voir si cela te convient, en passant par un tableau intermédiaire en colonne R et suivantes qui peuvent être masquées au besoin :
https://www.cjoint.com/c/LExupeFSZTe
Cdlmnt
Via
Coucou Raymond , je crois avoir compris le n° 1 est sorti 7 fois, le 2 est sorti 9 fois etc (données rentrées par l'utilisateur qui veut ensuite ressortir tous les n°s sortis 7 fois etc )
Jack, voir si cela te convient, en passant par un tableau intermédiaire en colonne R et suivantes qui peuvent être masquées au besoin :
https://www.cjoint.com/c/LExupeFSZTe
Cdlmnt
Via
je n avais pas vu a ca beugue a un certain niveau
j ai reporté exactement a l'identique du tableau que j'utilise et a un moment ca ne compte plus
peux tu me dire l(erreur
merci
https://www.cjoint.com/c/LEyjwLjFMBM
j ai reporté exactement a l'identique du tableau que j'utilise et a un moment ca ne compte plus
peux tu me dire l(erreur
merci
https://www.cjoint.com/c/LEyjwLjFMBM
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous
Un essai avec macro
https://www.cjoint.com/c/LEymIgXVeAB
Cdlmnt
Attention. Lien modifié
Un essai avec macro
https://www.cjoint.com/c/LEymIgXVeAB
Cdlmnt
Attention. Lien modifié
bonsoir j'ai trouvé ta macro bien tard...
je l'ai adapté a mon fichier qui est en
BN122:CB130
et ma macro provoque une ligne ininterrompue en ligne 131 a gauche
c'est quoi mon erreur?
encore merci bcp
Public Sub ok()
Dim plage As Range, cel As Range
Dim k As Long, i As Long, nmax
Dim dico As Object, cle, valeur, cles, valeurs, nbcles, TA
' def plage
Set plage = Union(Range("bn123:cb123"), Range("bn125:cb126"), Range("bn127:cb127"), Range("bn129:cb129"))
' nb max apparitions
nmax = Application.WorksheetFunction.Max(plage)
' nb apparitions - liste numéros
Set dico = CreateObject("scripting.dictionary")
For k = 0 To nmax
dico.Add k, ""
For Each cel In plage
If cel.Value = k Then dico(k) = dico(k) & ";" & cel.Offset(-1, 0)
Next cel
Next k
nbcles = dico.Count
cles = dico.keys
valeurs = dico.items
Application.ScreenUpdating = False
' affichage
For k = 0 To nmax
Range("ca131").Offset(0, -k).Value = cles(k)
valeur = valeurs(k)
If valeur = "" Then
Range("ca131").Offset(1, -k).Value = ""
Else
valeur = Right(valeur, Len(valeur) - 1)
TA = Split(valeur, ";")
Range("ca131").Offset(1, -k) = UBound(TA) + 1
Range("ca131").Offset(2, -k).Resize(1 + UBound(TA)) = Application.Transpose(TA)
End If
Next k
End Sub
je l'ai adapté a mon fichier qui est en
BN122:CB130
et ma macro provoque une ligne ininterrompue en ligne 131 a gauche
c'est quoi mon erreur?
encore merci bcp
Public Sub ok()
Dim plage As Range, cel As Range
Dim k As Long, i As Long, nmax
Dim dico As Object, cle, valeur, cles, valeurs, nbcles, TA
' def plage
Set plage = Union(Range("bn123:cb123"), Range("bn125:cb126"), Range("bn127:cb127"), Range("bn129:cb129"))
' nb max apparitions
nmax = Application.WorksheetFunction.Max(plage)
' nb apparitions - liste numéros
Set dico = CreateObject("scripting.dictionary")
For k = 0 To nmax
dico.Add k, ""
For Each cel In plage
If cel.Value = k Then dico(k) = dico(k) & ";" & cel.Offset(-1, 0)
Next cel
Next k
nbcles = dico.Count
cles = dico.keys
valeurs = dico.items
Application.ScreenUpdating = False
' affichage
For k = 0 To nmax
Range("ca131").Offset(0, -k).Value = cles(k)
valeur = valeurs(k)
If valeur = "" Then
Range("ca131").Offset(1, -k).Value = ""
Else
valeur = Right(valeur, Len(valeur) - 1)
TA = Split(valeur, ";")
Range("ca131").Offset(1, -k) = UBound(TA) + 1
Range("ca131").Offset(2, -k).Resize(1 + UBound(TA)) = Application.Transpose(TA)
End If
Next k
End Sub
Non tu n'as pas reporté à l'identique dans ta feuille 2 à laquelle je ne comprends d'ailleurs rien car elle comporte plusieurs tableaux mais aucun ne comporte les colonne rajoutées et les formules de mon exemple
C'est un fouillis cette feuille 2! , épure là ou reporte ton tableau utile dans une autre feuille pour un travail efficace
par contre s'il existait un algo pourquoi pas qu'appelle-tu un algo ? un algorithme ? que recouvre ce terme pour toi car dans excel on va trouver des fonctions, des formules, des macros...
C'est un fouillis cette feuille 2! , épure là ou reporte ton tableau utile dans une autre feuille pour un travail efficace
par contre s'il existait un algo pourquoi pas qu'appelle-tu un algo ? un algorithme ? que recouvre ce terme pour toi car dans excel on va trouver des fonctions, des formules, des macros...
Bonjour le fil,
Salut Via, sans vouloir marcher sur tes plates-bandes, je pense que le demandeur jack2125 a relancer la suite de cette discussion sur le lien ci-dessous
https://forums.commentcamarche.net/forum/affich-37601974-qui-peut-m-expliquer-pourquoi-le-calcul-ne-s-effectue-pas#p37602171
Cordialement
Salut Via, sans vouloir marcher sur tes plates-bandes, je pense que le demandeur jack2125 a relancer la suite de cette discussion sur le lien ci-dessous
https://forums.commentcamarche.net/forum/affich-37601974-qui-peut-m-expliquer-pourquoi-le-calcul-ne-s-effectue-pas#p37602171
Cordialement
Désolé jack mon intention n'était pas de te rabaisser, je trouvais simplement bizarre que tu ne lises pas toutes les réponses qu'on te donnait et que tu partais sur une autre discussion pour le même sujet, inconséquent n'est peut être pas le mot juste !
Je t'ai renvoyé sur l'autre fil ton fichier corrigé avec les explications pourquoi cela ne fonctionnait pas
quand à la macro de CCM81 elle est ici plus haut au post 8
Cdlmnt
Via
Je t'ai renvoyé sur l'autre fil ton fichier corrigé avec les explications pourquoi cela ne fonctionnait pas
quand à la macro de CCM81 elle est ici plus haut au post 8
Cdlmnt
Via
pourquoi a 85% tout marche et les 15% ne fonctionnent pas
j y passe des plombes a essayer de comprendre mais ne trouve aucune explication...
j'ai essayer de changer le format des cellules qui ne fonctionnent pas, de les écrire manuellement, de les croiser ....rien n'y fait
je ne vois aucune raison plausible qui provoque le non fonctionnement
je suis sans doute bête!
j y passe des plombes a essayer de comprendre mais ne trouve aucune explication...
j'ai essayer de changer le format des cellules qui ne fonctionnent pas, de les écrire manuellement, de les croiser ....rien n'y fait
je ne vois aucune raison plausible qui provoque le non fonctionnement
je suis sans doute bête!
