Concatenation Infinie ?

phlaurent55

Nous a quittés en 2020

Repose en paix

• 24 Mai 2013

• #2

Re : Concatenation Infinie ?

Bonjour Sandra,

Voici un fichier d'exemple pris avec des communes françaises.

Cliquez pour agrandir...

Pour envoyer un fichier, Cliquer sur "Aller en mode avancé" et ensuite cliquer sur l'icône "Trombone"

à+
Philippe

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 24 Mai 2013

• #3

Re : Concatenation Infinie ?

Bonjour le forum,

=CONCATENER($A$1;" ";B1)

A tirer vers le bas.

excfl

 

Vote positif 0 Vote négatif

sandrabordeaux

XLDnaute Nouveau

• 24 Mai 2013

• #4

Re : Concatenation Infinie ?

Ups c'est corrigé ;-) je suis tête en l'air.
merci d'avance

 

Vote positif 0 Vote négatif

sandrabordeaux

XLDnaute Nouveau

• 24 Mai 2013

• #5

Re : Concatenation Infinie ?

Merci excfl, mais cela m'oblige à découper l'intégralité de ma première colonne ce qui ne m'arrange pas dans ce cas de figure vu que j'ai 300 cellules en colonnes 1 à associer à une centaine de cellules en colonne 2.
Sandra

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 24 Mai 2013

• #6

Re : Concatenation Infinie ?

Bonjour Sandra, le forum,

Si j'ai bien compris la demande :

voir fichier joint, en espérant que ça te convienne!

Attention macro très longue... car 36000 communes * 9 activités = 330 000 lignes... toujours si j'ai bien compris la demande! Macro qui bug à 65000 lignes, sûrement du au fichier qui est du 2003 ou qqch comme ça...
à voir!

Tibo

 

Pièces jointes

• Copie de demo.xlsm

  550.7 KB · Affichages: 907
• Copie de demo.xlsm

  550.7 KB · Affichages: 896
• Copie de demo.xlsm

  550.7 KB · Affichages: 695

Dernière édition: 24 Mai 2013

Vote positif 0 Vote négatif

sandrabordeaux

XLDnaute Nouveau

• 24 Mai 2013

• #7

Re : Concatenation Infinie ?

titiborregan5 Un grand merci c'est exactement ce qu'il me fallait !!!
Une grosse bise à vous tous, vous me sauvez la journée ! Je vais de ce pas éditer mon topics pour marquer résolu. ;-)

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 24 Mai 2013

• #8

Re : [Résolu] Concatenation Infinie ?

ça marche correctement chez toi? chez moi passé la 65000ème ligne il défile en h2...
Ne pas mettre en résolu, ce n'est pas la politique du forum. Cela permet à d'autres de venir et d'apporter des solutions nouvelles si besoin... donc un topic n'est jamais complètement résolu (je viens de l'apprendre aussi )

 

Vote positif 0 Vote négatif

sandrabordeaux

XLDnaute Nouveau

• 24 Mai 2013

• #9

Re : Concatenation Infinie ?

Pour l'instant ça tourne, je ne suis pas encore à la 65 000 ligne, il semble ramer un peu l'ordinateur.
Bizarre ça qu'il bascule en 82, peut être la limite de excel en nombre de lignes ?
j'ai remodifié mon titre de topics pour respecter les règles du forum.

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 24 Mai 2013

• #10

Re : Concatenation Infinie ?

65000 est l'ancienne limite de lignes (excel 2003 et antérieurs)!!! L'ordi rame et pour cause essaye de mettre application.screenupdating=false au début du code, ça accélèrera un peu... 5-7 minutes pour la macro je crois!

 

Vote positif 0 Vote négatif

sandrabordeaux

XLDnaute Nouveau

• 24 Mai 2013

• #11

Re : Concatenation Infinie ?

En effet, il revient au bout d'un moment sur la h2, je la vois défiler devant moi ^^

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 24 Mai 2013

• #12

Re : Concatenation Infinie ?

... Je ne comprends pas pourquoi... j'imagine que la limite est atteinte... Quelle version d'Excel as-tu?

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 24 Mai 2013

• #13

Re : Concatenation Infinie ?

Bonjour

Pour ceux que ca intéresse

Solution sans boucle, très performante.

 

Pièces jointes

• SandraBordeaux2.xlsm

  577.1 KB · Affichages: 279

Dernière édition: 24 Mai 2013

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 24 Mai 2013

• #14

Re : Concatenation Infinie ?

Bonjour sandrabordeaux, excfl, titiborregan
Peut être ainsi pour gagner du temps et prévenir le dépassement du nombre de lignes.

VB:

Sub Test()
'Efgé pour sandrabordeaux
'http://www.excel-downloads.com/forum/206244-concatenation-infinie.html#post1290012
Dim i&, Treport As Variant, TCommunes As Variant, TAct As Variant
With Sheets("Feuil1")
    TCommunes = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(3))
    TAct = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(3))
    ReDim Treport(1 To UBound(TCommunes, 1) * UBound(TAct, 1), 1 To 1)
    For i = LBound(TCommunes, 1) To UBound(TCommunes, 1)
        For J = LBound(TAct, 1) To UBound(TAct, 1)
            k = k + 1
            Treport(k, 1) = TCommunes(i, 1) & " " & TAct(J, 1)
        Next J
    Next i
    If UBound(Treport, 1) > .Rows.Count Then MsgBox "Le nombre de lignes dépasse le nombre de ligne de la feuille" & vbLf & _
                                                                "Seuls les " & Format(Rows.Count - 1, "#,##0") & " seront prises en compte" & vbLf _
                                                                , 64, "Dépassement du nombre de lignes"
    .Cells(2, 5).Resize(IIf(UBound(Treport, 1) > .Rows.Count - 1, Rows.Count - 1, UBound(Treport, 1))) = Treport
End With
End Sub

J'ai supprimé des lignes de communes pour alléger le fichier....
Cordialement

 

Pièces jointes

• demo(3).xls

  52 KB · Affichages: 72

Dernière édition: 24 Mai 2013

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Mai 2013

• #15

Re : Concatenation Infinie ?

Bonjour à tous

Un essai qui prend chez moi 17 secondes pour environ 29500 lignes

 

Pièces jointes

• demo.xlsm

  868.2 KB · Affichages: 364
• demo.xlsm

  868.2 KB · Affichages: 434
• demo.xlsm

  868.2 KB · Affichages: 458

Vote positif 0 Vote négatif