Autres Regroupement

[chilo27]

Bonjour le forum

En haut j'ai des nombres (15 16 17 etc) qui prennent une valeur en fonction du travail à réaliser
En bas le comptage du nombre de fois ou ses numéros apparaissent
ex 120 apparaît 4 fois (plus ou moins)

L'objectif est de regrouper ces numéros (pour l'exemple 18 20 23 70) dans une même cellule

En vous remerciant pour l'aide

 

[M12]

Bonjour le forum

En haut j'ai des nombres (15 16 17 etc) qui prennent une valeur en fonction du travail à réaliser
En bas le comptage du nombre de fois ou ses numéros apparaissent
ex 120 apparaît 4 fois (plus ou moins)

L'objectif est de regrouper ces numéros (pour l'exemple 18 20 23 70) dans une même cellule

En vous remerciant pour l'aide

Bonjour,
Si j'ai compris

 

[sylvanu]

Bonjour Chilo, M12,
Pour tout fichier inférieur à 1Mo on peut directement mettre le fichier sans le zipper.

Un essai en PJ avec cette macro, elle est exécutée quand on appui sur le bouton :

Sub Examine()
    [15:15].ClearContents: [18:18].ClearContents:
    Chercher 13
    Chercher 16
End Sub
Sub Chercher(L)
    Dim C%, C2%, Texte$
    For C = 12 To 40
        N = Cells(L, C)
        For C2 = 12 To 40
            If Cells(5, C2) = N Then Texte = Texte & Cells(4, C2) & " "
        Next
        For C2 = 12 To 40
            If Cells(8, C2) = N Then Texte = Texte & Cells(7, C2) & " "
            End If
        Next
        Cells(L + 2, C) = Texte: Texte = ""
    Next C
End Sub

A noter qu'en ligne 14 et 17, on peut mettre :

=NB.SI($5:$5;L13)+NB.SI($8:$8;L13)

 

[chilo27]

Bonjour,
Si j'ai compris

Bonjour M12

Merci M12 pour la réponse vos avez très bien compris
C'est exactement cela

 

[chilo27]

Merci M12, sylvanu bonjour

Je vous remercie pour vos réponses

Sylvanu, le end if était de trop je l'ai congédié et cela à fonctionner

Merci une nouvelle fois

 

[sylvanu]

Oups! Dernière simplification ... non testée. Sorry.
PJ #3 modifiée pour les futurs lecteurs.

 

[chilo27]

ReBonsoir, Sylvanu

J'ai oublié de préciser que les colonnes A à M contiennent des éléments
à ne pas effacer et qu'ils commencent à la ligne 6
la présentation est dans le petit fichier
La méthode de M12 fonctionne bien
La votre est pratique elle traite le tout mais je ne parviens pas à l'adapter

Merci de vous pencher sur mon cas

 

[sylvanu]

Bonjour Chilo, M12,

Pour tout fichier inférieur à 1Mo on peut directement mettre le fichier sans le zipper.
Evitez les zip quand c'est possible, cela fait perdre du temps inutilement.

Je n'ai pas bien compris certaines de vos modifs dans le VBA, en particulier la suppression d'espaces entre les nombres trouvés, cela donne des résultat bizarres.
En PJ j'ai essayé de faire à l'identique du précédent avec les modifs liées au nouveau format.

 

[chilo27]

Merci Beaucoup je vais l'essayer et je reviens vers vous

 

[sylvanu]

Re,
Une version plus simple à modifier, vous n'avez qu'à modifier cela pour adapter :

' Déclaration des lignes colonnes
PremièreColonne = 14    ' Première Colonne à traiter, soit colonne "N"
DernièreColonne = 42    ' Dernière Colonne à traiter, soit colonne "AP"
PremièreLigne = 17      ' Première Ligne à traiter, soit ligne 17
DernièreLigne = 20      ' Dernière Ligne à traiter, soit ligne 20

 

[chilo27]

Re
L'essaie a l'air concluant

Merci Bien à vous deux

 

[job75]

Bonsoir à tous,

Sur Excel 2019 et versions suivantes on peut utiliser la fonction JOINDRE.TEXTE.

Formule matricielle en Z15 (1a cellule ne doit pas être fusionnée) :

=SUPPRESPACE(JOINDRE.TEXTE(" ";VRAI;REPT(L9:AN9;L10:AN10=L15))&" "&JOINDRE.TEXTE(" ";VRAI;REPT(L12:AN12;L13:AN13=L15)))

Formule en X15 :

=SIERREUR(RECHERCHEH(L15;18:19;2;0);SIERREUR(RECHERCHEH(L15;21:22;2;0);""))

A+

 

[job75]

En fait il est plus simple de mettre en X15 la formule :

=NBCAR(Z15)-NBCAR(SUBSTITUE(Z15;" ";))+(Z15<>"")

Les lignes 18 et suivantes peuvent être supprimées.

 

[chilo27]

En fait il est plus simple de mettre en X15 la formule :

=NBCAR(Z15)-NBCAR(SUBSTITUE(Z15;" ";))+(Z15<>"")

Les lignes 18 et suivantes peuvent être supprimées.

merci Job75 j'étais absent ces derniers temps