définition taille de tableaux

F

fred

Guest
Bonjour à tous et toutes.

j'ai un tableau de 100 lignes * 3 colonnes.

dans une colonne supplémentaire j'y ajoute une formule de concaténation et je voudrais par ma macro que celle-ci soit étalée dans toute la colonne jusqu'à la fin du tableau et pas plus et que si je rajoute des données ulterieurement la formule s'adapte de nouveau au nombre de lignes.

Ex de ma macro:

Sub Macro5()
'
' Macro5 Macro
'

Range('G1').Select
ActiveCell.FormulaR1C1 = _
'=RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-1]'
Range('G1').Select
Selection.AutoFill Destination:=Range('G1:G2500'), Type:=xlFillDefault
Range('G1:G2500').Select
End Sub

Ici je suis obligé de definir le nombre de lignes!!!

Merci a tous et toute pour votre aide!!!

bonne journée
 

Abel

XLDnaute Accro
Bonjour fred,

Essaie :

Code:
Range('G1').Select
ActiveCell.FormulaR1C1 = _
'=RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-1]'
Range('G1').Select
Selection.AutoFill Destination:=Range('G1:G' & range ('g65536').end(xlup).row), Type:=xlFillDefault
Range('G1:G' & range ('g65536').end(xlup).row).Select


En espérant que cela te dépanne.


Abel.
 
F

fred

Guest
Merci abel mais ce la ne marche pas!!!je te joins le tableau si jamais tu as un peu de tps et que tu peux regarder!!!!

Merci en tout cas de ta réponse!!!!

AD ABC ASS CORFOU 2003 MQET concatener
AD ABC ASS CORFOU 2004 MQET
AD SPI PROP CORFOU 2003 MQET
AD SPI PROP CORFOU 2004 MQET
AR BREUER G CORFOU 2004 MQET
AR BREUER G CORFOU 2005 MQET
AR BRUCHOU DO 2003 DEBFRE
AR MARVAL CORFOU 2003 DEBETF
AR MARVAL CORFOU 2004 DEBETF
AR MARVAL CORFOU 2005 DEBETF
AR MARVAL CORFOU 2003 MQET
AR MARVAL CORFOU 2004 MQET
AR MARVAL CORFOU 2005 MQET
AR MARVAL DO 2003 VABEPE
AR MATUTE CORFOU 2004 MQET


je veux que dans la derniere colonne il y est la concaténation de toutes les cellules par lignes!!!!sans a avoir a definir la taille du tableau!!!!

Merci
 

Abel

XLDnaute Accro
Re,

Regarde la pièce jointe si cela te convient.

Abel.

[file name=Exemple_Fred.zip size=8038]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_Fred.zip[/file]
 

Pièces jointes

  • Exemple_Fred.zip
    7.8 KB · Affichages: 14

Charly2

Nous a quittés en 2006
Repose en paix
Bonjour Fred, Abel, le forum,

La procédure proposée par Abel fonctionne bien, il y a seulement une petite correction à faire :

Selection.AutoFill Destination:=Range('G1:G' & range ('A65536').end(xlup).row), Type:=xlFillDefault

Essaie en la modifiant de la sorte et tiens nous au courant...

Amicalement
Charly
 
F

fred

Guest
Merci a vous deux mais dans l'exemple de abel la concaténation obtenue n'est pas ce que je veux!!!

Tu met bout a bout toutes les concaténations passées!!!

Moi je veux juste une concaténation de cellules de chaque ligne et non pas la somme.

Ex:

AR MARVAL DO 2003 VAPEDE AR MARVAL DO 2003 VAPEDE
AD ABC DE 2004 INSBRE AD ABC DE 2004 INSBRE


J'espere etre claaire!!!!

J'ai besoin de cette mise en forme pour par la suite comparer les cellules concaténer a d'autres dans une feuille différente.

Merci en tous les cas pour votre aide et votre patience.
 
F

fred

Guest
ci-joins le tableau ce sera plus clair [file name=Classeur3_20051019110155.zip size=4910]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20051019110155.zip[/file]
 

Pièces jointes

  • Classeur3_20051019110155.zip
    4.8 KB · Affichages: 17
F

fred

Guest
Merci a vous charly2 et Abel mais j'ai fais tourner un peu mes méninges et elles m'ont permises grâce à vos conseils néanmoins dont je vous remercie une fois de plus de touver la technique adéquate.

bonne journée
 

Abel

XLDnaute Accro
Bonjour le fil,

Arf ! ah ben vi.

Bon :

1 - Zop
2 - Pas la peine de gueuler, il suffisait de rajouter une toute petite ligne Concat='' et d'enlever les espaces (que j'ai laissés pour la peine)
3 - Pièce jointe corrigée.

Abel. [file name=Exemple_Fred_V2.zip size=8924]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_Fred_V2.zip[/file]
 

Pièces jointes

  • Exemple_Fred_V2.zip
    8.7 KB · Affichages: 19

Discussions similaires

Réponses
11
Affichages
537
  • Question
Microsoft 365 Formules
Réponses
2
Affichages
487

Membres actuellement en ligne

Statistiques des forums

Discussions
312 895
Messages
2 093 384
Membres
105 714
dernier inscrit
POKITO