copie données

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #2

Re : copie données

Bonjour ,

Voici un essai ....

 

Pièces jointes

• test copie date.xlsm

  22.2 KB · Affichages: 20
• test copie date.xlsm

  22.2 KB · Affichages: 21
• test copie date.xlsm

  22.2 KB · Affichages: 19

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #3

Re : copie données

bonjour,

quand je test cela ne copie pas les valeurs

a+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #4

Re : copie données

Bizard ,

moi ça marche trés bien ,
voici le fichier aprés exécution de l'appui bouton

Ou alors j'ai rien compris

 

Pièces jointes

• test copie date-1.xlsm

  22.2 KB · Affichages: 18
• test copie date-1.xlsm

  22.2 KB · Affichages: 20
• test copie date-1.xlsm

  22.2 KB · Affichages: 16

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #5

Re : copie données

bonjour

Voici ce que cela derai faire:
quand on change la date dans l'onglet feuil 1 par exemple 20/8 on devrai recopier dans l'onglet copie que "sqss"


a+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #6

Re : copie données

LA copie marchait bien ,

c'est juste l'effacement des anciennes valeurs qui n'était pas prévu

 

Pièces jointes

• test copie date-1.xlsm

  22.3 KB · Affichages: 15
• test copie date-1.xlsm

  22.3 KB · Affichages: 18
• test copie date-1.xlsm

  22.3 KB · Affichages: 18

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #7

Re : copie données

Bonjour,
Comme j'ai indiqué au début les données sont dans un autre classeur.
je dois selectionner le classeur:
Windows("Plan.xlsm").Activate et le rajouter dans la macro comme ci-dessous?

exemple:
Do
Windows("Plan.xlsm").Activate

Lecture = Format(Sheets("classeur").Range("N24").Offset(0, Boucle), "dd/mm/yyyy")
If Lecture = "" Then MsgBox "Date non présente"
If Lecture = Date_Choix Then Colonne_Source = Boucle: Ok = True
Boucle = Boucle + 1
Loop Until Ok Or Lecture = ""

Sheets("classeur").Select

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #8

Re : copie données

Ok , je regarde ,

le classeur sera ouvert , ou il faut l'ouvrir , si il faut l'ouvrir est-il dans le même dossier que ce fichier ?

Et oui , pas tout en 1 étape , l'on construit petit à petit ,

pas forcément toute les prescriptions dés le départ

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #9

Re : copie données

bonjour,

je l'avais indique que par la suite les données étaient dans un autre classeur.

pour l'instant le classeur plan est ouvert au depart.

a+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #10

Re : copie données

Voilà ,

Regardes comme cela ,

Bon , j'ai pas testé , mais y'a juste la notion de classeur en plus donc ça devrait le faire .

 

Pièces jointes

• test copie date-1.xlsm

  22.4 KB · Affichages: 19
• test copie date-1.xlsm

  22.4 KB · Affichages: 21
• test copie date-1.xlsm

  22.4 KB · Affichages: 22

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #11

Re : copie données

Bonjour

ma macro se bloque ici:
Do
Lecture = Format(Workbooks("Plan").Sheets("classeur").Range("N24").Offset(0, Boucle), "dd/mm/yyyy")


Afin que de savoir si j'ai bien expliqué, je réécrit les conditions?

a+
Les données qui sont dans l'onglet classeur ( dans le classeur de test sont un autre classeur nommé plan.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #12

Re : copie données

J'ai construit un fichier plan.xlsm pour tester ,

En modifiant comme ceci ça marche

Code:

Sub recopie()
Dim Date_Choix As String, Lecture As String, Adresse_cellule As String
Dim Colonne_Source As Long, Boucle As Long, FinLigne As Long
Dim Trouve As Range
Dim Ok As Boolean
Date_Choix = CDate(Sheets("Feuil1").Range("C1"))

Do
Lecture = Format(Workbooks("Plan.xlsm").Sheets("classeur").Range("N24").Offset(0, Boucle), "dd/mm/yyyy")
If Lecture = "" Then MsgBox "Date non présente"
  If Lecture = Date_Choix Then Colonne_Source = Boucle: Ok = True
  Boucle = Boucle + 1
Loop Until Ok Or Lecture = ""

Adresse_cellule = Workbooks("Plan.xlsm").Sheets("classeur").Range("N24").Offset(0, Colonne_Source).Address
FinLigne = Workbooks("Plan.xlsm").Sheets("classeur").Range(Split(Adresse_cellule, "$")(1) & Rows.Count).End(xlUp).Row
Sheets("Copie").Range("N:N").Clear
Sheets("Copie").Range("N1:N" & FinLigne - 23) = Workbooks("Plan.xlsm").Sheets("classeur").Range(Adresse_cellule & ":" & Split(Adresse_cellule, "$")(1) & FinLigne).Value
End Sub

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #13

Re : copie données

Bonjour

dans le fichier plan que vous avez construit l'onglet se nomme classeur?

chez moi la macro maintenant se bloque à la dernierre ligne:
Sheets("Copie").Range("N1:N" & FinLigne - 23) = Workbooks("Planification.xlsm").Sheets("Planification").Range(Adresse_cellule & ":" & Split(Adresse_cellule, "$")(1) & FinLigne).Value
'End Sub

a+

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 23 Août 2014

• #14

Re : copie données

bonjour

voici la ligne qui reste bloqué:
Sheets("Copie").Range("N1:N" & FinLigne - 23) = Workbooks("Plan.xlsm").Sheets("classeur").Range(Adresse_cellule & ":" & Split(Adresse_cellule, "$")(1) & FinLigne).Value
'End Sub

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 23 Août 2014

• #15

Re : copie données

l'onglet copie est dans quel classeur lui ?

 

Vote positif 0 Vote négatif