tansfert de données en VBA

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

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]

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]

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]

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

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

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

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

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]

Bonjour le forum.

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


Gros bisous

A+Marion