transfert de donnée par vba

[MASSJIPE]

Bonjour
je cherche un code vba pour transfert de données
Voir classeur en PJ
Merci

 

[Paritec]

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🙂

 

[Paritec]

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

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

a+
papou🙂

 

[mth]

Re : transfert de donnée par vba

Bonjour MASSJIPE,

Un petit essai avec ce 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

 

[MASSJIPE]

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

 

[Paritec]

Re : transfert de donnée par vba

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

 

[Paritec]

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🙂

 

[MASSJIPE]

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

 

[Paritec]

Re : transfert de donnée par vba

Bonsoir Massipe
oui c'est exactement ce que fait cette ligne de 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🙂

 

[mth]

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

 

[MASSJIPE]

Re : transfert de donnée par vba

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