Macro copie de données dans des cellules vides

macsscam

XLDnaute Junior

• 15 Avril 2010

• #2

Re : Macro copie de données dans des cellules vides

Bonjour Alex52,

Pour copier des données d'un fichier à un autre, tu peux t'inspirer de discussions existantes, par exemple celle-ci : https://www.excel-downloads.com/threads/copier-des-donnee-dun-fichier-a-lautre.139936/

Pour trouver la dernière cellule vide d'une feuille (pour copier tes données à la suite des autres), tu peux t'inspirer de cette discussion et du code présenté : https://www.excel-downloads.com/threads/derniere-cellule-vide-en-vba.129645/


N'hésite pas à revenir s'il te manque des informations,
Bon courage,

--
macsscam

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #3

Re : Macro copie de données dans des cellules vides

Bonjour à essayer

Sub copalex()
Dim wb As Workbook
Dim sh As Worksheet
Dim n
'Il faut que ton classeur de destination soit dans le meme dossier et fermer
If Dir(ThisWorkbook.Path & "\?.xls") <> "" Then 'à la place du point d'interrogation mettre le nom ou tu va coller tes donner
Set wb = Workbooks.Open(ThisWorkbook.Path & "\?.xls") 'à la place du point d'interrogation mettre le nom ou tu va coller tes donner
On Error Resume Next
Set sh = wb.Sheets("?") 'NoM de la feuille àù tu vas coller tes données
On Error GoTo 0
Application.DisplayAlerts = False
Sheets("Nomdetafuilleoutucopietesdonées").Range("plageàcpier").Copy wb.Sheets("?").Range("A1").End(xlDown).Offset(1, 0)
Application.DisplayAlerts = True

wb.Save

wb.Close
End If
End Sub

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #4

Re : Macro copie de données dans des cellules vides

OK merci a vous pour vos précieux conseils je vais tester cela et je vous tiens au courant . Encore mille fois merci

 

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #5

Re : Macro copie de données dans des cellules vides

Voila je suis toujours bloqué , je joint un fichier a titre d'exemple pour que vous compreniez mieux ce que souhaite réaliser.
En fait il faudrait copier les données de la feuille nommée source vers la feuille destination mais la feuille source est une feuille qui change tout les jours donc elle contient des données nouvelles chaque jour il faut donc mettre a la suite des autres dans la feuille destination.Après de plus en amples recherches et des essais de macros je suis donc toujours bloqué voila pourquoi je solicite de nouveau votre aide.

Merci

 

Pièces jointes

• exemple.xls

  41 KB · Affichages: 83
• exemple.xls

  41 KB · Affichages: 93
• exemple.xls

  41 KB · Affichages: 93

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #6

Re : Macro copie de données dans des cellules vides

Bonjour a essayer
A++

 

Pièces jointes

• exemple(1).zip

  12.2 KB · Affichages: 63
• exemple(1).zip

  12.2 KB · Affichages: 54
• exemple(1).zip

  12.2 KB · Affichages: 51

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #7

Re : Macro copie de données dans des cellules vides

Merci RoRo69 pour ta réponse mais la macro me retourne une erreur et lorsque je lance le debogage se serait la ligne suivante qui pose problème :
.Copy Feuil1.Range("A2").End(xlDown).Offset(1, 0)
il me dit : erreur définie par l'aplication ou par l'objet ??
(Sachant que j'ai renomé mes feuille Feuil1 et Feuil2 au lieu de souce et destination)

merci a toi de me consacrer de temps pour mes erreurs de débutant !!

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #8

Re : Macro copie de données dans des cellules vides

re
Il faut au minimum que dans ta feuille destination il y est deux lignes de renseigné
A++

 

Dernière édition: 15 Avril 2010

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #9

Re : Macro copie de données dans des cellules vides

ARF ca ne change rien j'ai toujours la même erreur ??
merci

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #10

Re : Macro copie de données dans des cellules vides

Bonjour mets ce code à la place:

Dim Rgnumform As Range
Set Rgnumform = Feuil2.Range("A2", Feuil2.Range("D65536").End(xlUp))
If Feuil1.Range("A2") = "" Then
With Rgnumform
.Select
.Copy Feuil1.Range("A2")
End With
Feuil1.Select
Else
With Rgnumform
.Select
.Copy Feuil1.Range("A1").End(xlDown).Offset(1, 0)
End With
Feuil1.Select
End If

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #11

Re : Macro copie de données dans des cellules vides

maintenant c'est le .select par rapport a la classe Range qui cloche ?? est que cela serait due a :
Set Rgnumform = Feuil2.Range("A2", Feuil2.Range("D65536").End(xlUp)) ?
merci

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #12

Re : Macro copie de données dans des cellules vides

Pourtant çà marche chez moi.
Peut tu remettre ton fichier.
A++

 

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 15 Avril 2010

• #13

Re : Macro copie de données dans des cellules vides

le voici
merci

 

Pièces jointes

• exemple(1).zip

  13.2 KB · Affichages: 50
• exemple(1).zip

  13.2 KB · Affichages: 42
• exemple(1).zip

  13.2 KB · Affichages: 39

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Avril 2010

• #14

Re : Macro copie de données dans des cellules vides

Voici le fichier
A++

 

Pièces jointes

• ex2).zip

  12.2 KB · Affichages: 102

Vote positif 0 Vote négatif

A

Alex52

XLDnaute Nouveau

• 16 Avril 2010

• #15

Re : Macro copie de données dans des cellules vides

UN grand merci a toi pour avoir résolu mon problème le classeur marche du tonnerre de dieu, franchement je ne sais pas comment j'aurais fait sans ce forum !!

 

Vote positif 0 Vote négatif