Zones dynamiques en VBA Excel

Balthazar IV · 2 Mai 2005

Bonjour,

Tout nouveau en VBA, J'aimerai réaliser une recopie d'une plage de données à la suite d'une autre plage de données.
Je m'explique :

Mon fichier Données contient :

A B C
1 Bernard Josianne 3
2 Dupont Marcel
3 Van Zietten Anatole

mes nouvelles données Noms et prénoms sur une zone A1:B3 que j'aimerai rendre dynamique selon le nombre de données inscrites. J'arrive à répérer le nombre de champs en insérant en C1 la fomule : =65536-NB.VIDE(B:B) ce qui donne dans mon exemple 3

Mon fichier Traitement contient :

A B
1 Noms Prénoms
2 Untel Truc
3 Van Zietten Brigitte
4 Machin Bidule

Ce que je voudrais C'est copier les données dynamiques de 'Données' pour les insérer Derrière les données dynamiques (Elles aussi) de 'traitement'.

Par avance merci à tous ceux qui essayeront de m'aider à progresser

ChTi160 · 2 Mai 2005

Salut Balthazar IV
je ne sais pas si j'ai bien compri la question regardes le fichier joint et dit moi
Amicalement
jean Marie [file name=TransfertDonnees_20050502164850.zip size=8022]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertDonnées_20050502164850.zip[/file]

Message édité par: ChTi160, à: 02/05/2005 16:50

Balthazar IV · 2 Mai 2005

Il est où ton fichier ZIP ?

J'abouti sur une page HTML où je ne trouve pas ton fichier !
Par contre, J'ai trouvé une routine dynamique qui me pemet de copier les données (non vides) de la colonne A a partir de A1 et de les recopier à partir de D1.

Sub test()
'
' test Macro
' Macro enregistrée le 02/05/2005 par Robin
'

'
Range('A1').EntireColumn.SpecialCells(xlCellTypeConstants).Select
Selection.Copy
Range('D1').Select
ActiveSheet.Paste
End Sub

Maintenant ce que je cherche c'est que D1 devienne dynamique pour pouvoir copier mes données à la suite d'autres données sur une autre feuille.
Il faut donc que je trouve le moyen de trouver l'emplacement de la premiere cellule vide dans ma base traitement de l'exemple prédédent et ainsi copier les nouvelles données à la suite des autres.

Moa · 2 Mai 2005

Salut !

Pour trouver la première cellule vide d'une colonne :

Range('D1').End(xlDown).Offset(1, 0).Activate

@ +++

Moa

Moa · 2 Mai 2005

Re !

Ce qui pourrait donner dans ton cas :

Sub TaMacro()
Range('A1').EntireColumn.SpecialCells(xlCellTypeConstants).Copy
Range('D1').End(xlDown).Offset(1, 0).Activate
ActiveSheet.Paste
End Sub

@ +++

Moa

Balthazar IV · 2 Mai 2005

Merci, j'ai bien essayé cette routine mais ça bugue sur

Range('D1').End(xlDown).Offset(1, 0).Activate

Hellboy · 2 Mai 2005

Bonjour Balthazar IV et MOA

Essaie ceci:

Code:

Sub TaMacro()
Range('A1').EntireColumn.SpecialCells(xlCellTypeConstants).Copy Destination:=Cells(65536, 4).End(xlUp).Offset(1, 0)
End Sub

Philippe

ChTi160 · 2 Mai 2005

re
bonsoir le fil
excuse j'avais mis un accent et j'ai cru pouvoir modifier directement
Amicalement
Jean Marie [file name=TransfertDonnees_20050502232510.zip size=8023]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertDonnees_20050502232510.zip[/file]

BalthazarIV · 5 Mai 2005

Merci à tous,

le code de Hellboy convient parfaitement à ce que j'attendais.

Zones dynamiques en VBA Excel

Balthazar IV

Guest

ChTi160

XLDnaute Barbatruc

Balthazar IV

Guest

Moa

XLDnaute Occasionnel

Moa

XLDnaute Occasionnel

Balthazar IV

Guest

Hellboy

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

BalthazarIV

Guest

Discussions similaires

Zones dynamiques en VBA Excel

Balthazar IV

Guest

ChTi160

XLDnaute Barbatruc

Balthazar IV

Guest

Moa

XLDnaute Occasionnel

Moa

XLDnaute Occasionnel

Balthazar IV

Guest

Hellboy

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

BalthazarIV

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency