définition taille de tableaux

[fred]

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]

Bonjour fred,

Essaie :

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.

 

[fred]

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]

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]

 

[Charly2]

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

 

[fred]

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.

 

[fred]

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]

 

[fred]

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]

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]

 

[fred]

Merci abel pour ton aide!!!!

a bientot pour de nouvelles aventures