copier des valeurs vers base de données

[dad62]

Bonjour le forum,
j'ai deux feuilles une SDPU dans laquelle je fait mes calculs et une autre BD dans laquelle je voudrai envoyer ces résultats.j'ai essayé de faire une macro avec l'enregistreur mais il y a certainement mieux a faire ,j'aimerai également que les résultats remplissent la dernière rangée vide de la BD.voir le fichier joint.
une aide est vraiment la bienvenue.
dad62

 

[Compte Supprimé 979]

Re : copier des valeurs vers base de données

Bonjour Dad62 😉

Voici le début de code que tu peux utiliser (à compléter par tes soins)

Sub CopieDonnées()
  Dim NLig As Long, ShtS As Worksheet
  ' Définir le nom de la feuille source
  Set ShtS = Sheets("SDPU")
  ' Avec la feuille de destination
  With Sheets("BD")
    ' Trouver la prochaine ligne vide de cette feuille
    NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1,0).Row
    ' Inscrire les données dans la feuille de destination
    .Range("A" & NLig) = ShtS.Range("A3")
    .Range("B" & NLig) = ShtS.Range("A4")
    .Range("C" & NLig) = ShtS.Range("A6")
    ' Etc ....
  End With
  ' Effacer les variables objet
  Set ShtS = Nothing
End Sub

A+

 

[dad62]

Re : copier des valeurs vers base de données

bonjour BrunoM45,bonjour le forum,
c'est sympa de m'avoir répondu,mais je suis pas trop fort avec le VBA,excusez moi de vous demandez pardon😛,mais pourriez vous me placer le code exemple dans le fichier joint j'arriverai certainement mieux à le compléter ensuite .

@+

 

[dad62]

Re : copier des valeurs vers base de données

re-bonjour le forum
après avoir collé le code fourni par bruno j'ai un message d'erreur de compilation Objet requis

Sub CopieDonnées()
  Dim NLig As Long, ShtS As Long
  ' Définir le nom de la feuille source
 Set ShtS = Sheets("SDPU")
  ' Avec la feuille de destination
 With Sheets("BD")
    ' Trouver la prochaine ligne vide de cette feuille
   NLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Inscrire les données dans la feuille de destination
   .Range("A" & NLig) = ShtS.Range("A3")
    .Range("B" & NLig) = ShtS.Range("A4")
    .Range("C" & NLig) = ShtS.Range("A6")
    ' Etc ....
 End With
  ' Effacer les variables objet
 Set ShtS = Nothing
End Sub

sub copie de données surligner en jaune. quelqu'un pour me dépanner?

 

[camarchepas]

Re : copier des valeurs vers base de données

Bonjour Dad62,

je pense que c'est la déclaration de variables qui n'est pas ok,

Essaie comme ceci ,

C'est surement une erreur Didactitielle afin que tu comprennes mieux le code :

Sub CopieDonnées()
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("SDPU")
' Avec la feuille de destination
With Sheets("BD")
' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("A" & Rows.Count).End(xlUp).Row
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("A3")
.Range("B" & NLig) = ShtS.Range("A4")
.Range("C" & NLig) = ShtS.Range("A6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub

 

[dad62]

Re : copier des valeurs vers base de données

bonjour camarchepas
je viens d'essayé votre code effectivement il n'y a plus le message d'erreur, mais les données se copie sur la même ligne de la feuil BD, au lieu de se copier sur la ligne vide en dessous .

 

[camarchepas]

Re : copier des valeurs vers base de données

Voici la solution pour ce problème de ligne je pense.

L'instruction d"tectant la derniere lignes écrite , il faut dionc ajouter 1 pour écrire sur une nouvelle ligne :

' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("A" & Rows.Count).End(xlUp).Row +1

 

[Compte Supprimé 979]

Re : copier des valeurs vers base de données

Bonjour le fil 😉

Désolé Dad62, je t'ai donné le code sans le tester 😱 et effectivement il y a quelques erreurs

Pour la prochaine ligne vide, ça peut être également

' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1,0).Row

A+

 

[dad62]

Re : copier des valeurs vers base de données

Nickel,merci vraiment pour ces réponses ,ils sont énormes les services que vous rendez en répondant aux utilisateurs novices de ce forum.