tansfert de données en VBA

[Marion]

Bonjour au forum

Je suis revenue avec un problème que j'ai du mal a faire aboutir.

J'ai un tableau sur la feuille planning ou je rentre ce que je désire faire le lendemain.

j'aurais aimé copier ses differentes données(ref, ligne, ce) sur un tableau qui se trouve sur une autre feuille saisie quantité a la suite des autres données par un bouton tranfert

les ligne a copier sont ligne 4 a 20
ligne 24 a 40
ligne 44 a 60
ligne 63 a 80


Je joins un fichier pour une meilleure compréhension

Si vous pouvez encore une fois me donner une petit coup de pouce


Merci d'avance

A+Marion [file name=marion1_20050801190722.zip size=10213]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marion1_20050801190722.zip[/file]

 

[ChTi160]

Salut Marion
bonsoir le Forum

ca fait longtemp que je ne t'ai croisé

donc en pièce jointe mon interprétation a adapter sûrement

bonne Soirée

Message édité par: ChTi160, à: 01/08/2005 22:25

 

[ChTi160]

re
y avait une erreur de fichier [file name=marionV1.zip size=15392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marionV1.zip[/file]

 

[Marion]

Bonjour au forum

Bonjour a toi ChTi160, il est vraie que cela fait pas mal de temps que l'on a pas eu l'occasion de discuter ensemble.

je renvoie le fichier que tu ma si gentiment amélioré, car aprés essai il a l'air de buger un petit peu, je pense que le fait de supprimer les lignes en flan ligne 3 et ligne 4, il n'aime pas.

je ne l'avais pas préciser mais les lignes ne sont pas toujours garnies donc si pas garnies pas de copie.


Désolée pour ce manque de précision.


Merci d'avance voici le fichier


A+Marion [file name=marionV1_20050802130509.zip size=15265]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marionV1_20050802130509.zip[/file]

 

[ChTi160]

Salut Marion

je pense avoir résolu le problème enfin tu testes et tu me dis [file name=marionV2.zip size=15403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marionV2.zip[/file]

 

[Marion]

Re
Merci de cette réponse

Il y a toujours un problème

je te renvoie le fichier il bug au niveau

derlgn = Range('B' & myArray(L)).End(xlDown).Row


Merci d'avance

A+Marion

 

[Marion]

Bonjour au forum

Je pense qu'il y a un problème lrsque il n'y a qu'une ligne de renseigné, avec deux ligne cela fonctionne


Merci


A+Marion

 

[Marion]

Bonsoir au forum

Jai modifié la macro mais je m'arrette a la ligne 256 lorsque je copie et je ne sais pas pouquoi

voici la macro

Sub transfert()
Dim myArray()
Dim tabtemp As Variant
Dim derlgn As Byte, L As Byte, Lgn As Byte, derlgn1 As Byte
Dim MaDate As Date
Dim MonType As String
MaDate = Range('B1')
myArray = Array(3, 23, 43, 63)

For L = 0 To UBound(myArray)
derlgn = Range('B' & myArray(L)).End(xlDown).Row
If Range('B' & myArray(L)).Offset(1, 0) = '' Then GoTo suivant
tabtemp = Range('A' & myArray(L) & ':E' & derlgn).Value
MonType = Range('D' & myArray(L) - 1).Value
With Worksheets('saisie quantite')
For Lgn = 1 To UBound(tabtemp, 1)
derlgn1 = .Range('B65536').End(xlUp).Row + 1 'bug ici
.Range('A' & derlgn1) = ''
.Range('B' & derlgn1) = Format(MaDate, 'ddd-d-mmm-yyyy') 'tabtemp(Lgn, 1)
.Range('C' & derlgn1) = ''
.Range('D' & derlgn1) = tabtemp(Lgn, 2)
.Range('E' & derlgn1) = tabtemp(Lgn, 5)
.Range('F' & derlgn1) = '' 'tabtemp(Lgn, 4)
.Range('G' & derlgn1) = tabtemp(Lgn, 4)
.Range('H' & derlgn1) = MonType
Next

End With
suivant:
Next
End Sub

si une personne peut me donner un coup de main

A+Marion

 

[ChTi160]

re Marion

pour ce qui est des 265 tu dois changer Le type de la Variable Derlgn1 qui en Byte soit 255 ,en Integer ou long
pour ce qui est du bug je verrais celà demain soir car demain je suis absent a moins que tu ai résolu le Problème
bonne Nuit

Message édité par: Chti160, à: 02/08/2005 23:24

 

[ChTi160]

re bon vite fait

tu testes comme dab [file name=marionV3.zip size=15746]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marionV3.zip[/file]

 

[Marion]

Bonjour le forum.

bonjour a toi ChTi160 et merci beaucoup, ta touche final est excellente, c'est super


Gros bisous

A+Marion