Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier des valeurs vers base de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dad62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dad62

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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)
VB: 
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+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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 .

@+
 
Vote positif 0 Vote négatif
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
Code: 
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?
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 .
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Code: 
' Trouver la prochaine ligne vide de cette feuille
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1,0).Row

A+
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2021 Externaliser une base de données
Réponses
1
Affichages
206
vgendron
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
363
Danyk01
D
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
C
  • Question Question
XL 2013 Copie de formules
Réponses
4
Affichages
594
Cattitude
C
GitLab permet de gérer et partager des projets, suivre les changements et collaborer avec d’autres personnes.
Réponses
0
Affichages
168
dysorthographie
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
864
Max
M
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
956
steph_29120
S
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
D
  • Question Question
Microsoft 365 combiner deux plages de données sur deux feuilles excel différentes pour un TCD
Réponses
4
Affichages
640
Daniel200666
D
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
882
Max
M
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
768
oguruma
L
  • Question Question
Microsoft 365 TCD et référence de cellules
Réponses
7
Affichages
653
alexga78
A
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
M
  • Résolu(e)
XL 2016 Recherche de date et de valeurs en fonction des dates
2 3
Réponses
36
Affichages
2 K
M@xu3L
M
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
A
  • Question Question
XL 2021 Générer des données à partir d'une ligne spécifique jusqu'à une autre
Réponses
5
Affichages
628
gbinforme
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…