transfert de donnée par vba

Paritec

XLDnaute Barbatruc

• 18 Juillet 2011

• #2

Re : transfert de donnée par vba

Bonsoir Massipe le forum
dans ta feuille BDD il ne manque pas une date ??? pour que l'on puisse transférer directement dans la bonne ligne??
Ou alors c'est une mise à jour journalière et là tu inscris les 4 cellules dans la première ligne vide??
enfin explique un peu STP et on va te faire cela
a+
papou🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Juillet 2011

• #3

Re : transfert de donnée par vba

Re Massipe le forum
autrement si c'est pour coller dans la première ligne vide de la feuille tableau

Code:

Sub copier()
    Feuil1.Range("A2:D2").Copy Feuil2.Range("B" & Rows.Count).End(xlUp)(2)
End Sub

a+
papou🙂

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 18 Juillet 2011

• #4

Re : transfert de donnée par vba

Bonjour MASSJIPE,

Un petit essai avec ce code:

Code:

Sub test()
Dim Dlig As Long
With Sheets("Tableau")
    Dlig = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    If .Range("A" & Dlig).Offset(-1, 0) = Date Then Exit Sub
 
    .Range("A" & Dlig) = Date
    .Range("B" & Dlig & ":D" & Dlig).Value = .Range("A2:D2").Value
End With
End Sub

On a vite fait de glisser sur la souris et de lancer la macro 2 fois, et donc de fausser les données, du coup j'ai tenté un test sur la date du jour, à voir si cela convient ou pas.

@ +

mth

Edit: oups ... bonjour Paritec, trop rapide pour moi 🙂
@ +
m

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 18 Juillet 2011

• #5

Re : transfert de donnée par vba

Bonjour Paritec
Si dans mon fichier d'origine il y a une date mais il est lourd ces données se mette à jour via une requête B0
elle sont transférer une première fois via =
et ensuite je saisie manuellement et c'est que je cherche un code

 

Pièces jointes

• Classeur.xls

  14.5 KB · Affichages: 66
• Classeur.xls

  14.5 KB · Affichages: 65
• Classeur.xls

  14.5 KB · Affichages: 55

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Juillet 2011

• #6

Re : transfert de donnée par vba

Bonsoir Mireille🙂 Massipe le forum
content de te revoir Mireille bisous
Papou🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Juillet 2011

• #7

Re : transfert de donnée par vba

Re Massipe MIreille🙂 le forum
bon alors c'est de plus en plus clair!!!!!!!!!!!!
tu as une feuille avec la date du 10/06/2011 dans la feuille BDD et tu transfères les valeurs
dans la ligne 01/07/2011 de la feuille Tableau !!!!!!!!!!!!! ?????????????????,,
il y a une logique mais la quelle ???? ou alors tu t'exprimes mal?? , ou alors?? ou alors ??
bref pas clair ton affaire
a+
papou🙂

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 18 Juillet 2011

• #8

Re : transfert de donnée par vba

Bonjour
donc j'ai modifié le code en supprimant la date pour avoir ceci

Sub test()
Dim Dlig As Long
With Sheets("Tableau")
Dlig = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
.Range("B" & Dlig & ":E" & Dlig).Value = .Range("A2😀2").Value
End With
End Sub
Merci à tous

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Juillet 2011

• #9

Re : transfert de donnée par vba

Bonsoir Massipe
oui c'est exactement ce que fait cette ligne de code !!!

Code:

Sub copier()
    Feuil1.Range("A2:D2").Copy Feuil2.Range("B" & Rows.Count).End(xlUp)(2)
End Sub

mais bon comme tu ne l'as même pas essayé !!
a+
papou🙂

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 18 Juillet 2011

• #10

Re : transfert de donnée par vba

re MASSJIPE, 🙂 Papou 🙂

MASSJIPE, si cela te va tant mieux, ceci dit fais très attention, si tu ne fais aucun contrôle de date, rien ne garantit que les données ne seront copiées qu'une fois (suite à une erreur de manip par exemple, ce qui peut arriver, tu risques de véroler tes données)
A toi de voir.

Bonne soirée

mth

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 18 Juillet 2011

• #11

Re : transfert de donnée par vba

re Paritec
si je l'ai essayé aussi ça fonctionne très bien
bonne journée

 

Vote positif 0 Vote négatif