Transfert de données automatique d'une feuille excel à une autreFermé

Question

Bonjour, 

J'ai créé une base de donnée sur excel et je souhaiterais faire en sorte que lorsque j'ajoute une nouvelles personne dans cette base, certaines colonnes (Nom, Prénom...) soient automatiquement copiées dans une autre feuille du classeur excel. Comment pourrais-je faire ?

Merci d'avance !

Configuration: Windows / Chrome 49.0.2623.87

ccm81 · Answer

Bonjour

certaines colonnes (Nom, Prénom...) soient automatiquement copiées dans une autre feuille du classeur excel. 
Il faudra passer par une macro
Pour aller plus loin, peux tu envoyer un bout de ton fichier une dizaine de lignes (avec la structure exacte des deux feuilles concernées), sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
   tu fais "Coller".

Cdlmnt

ccm81 · Answer

Un début
Pour le code du bouton valider de la feuille personnel (Nouveau salarié)

Private Sub cmdValider_Click()Dim feuille As Worksheet, li As LongSet feuille = Sheets("Personnel")li = feuille.Range("A" & Rows.Count).End(xlUp).Row + 1With Me    'Rows("4:4").Select    'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    feuille.Range("A" & li).Value = .txtNom.Value    feuille.Range("B" & li).Value = .txtPrenom.Value    feuille.Range("C" & li).Value = .txtbadge.Value    feuille.Range("D" & li).Value = .zlmDepartement.Value    feuille.Range("E" & li).Value = .txtFonction.Value    feuille.Range("F" & li).Value = .txtBureau.Value    feuille.Range("G" & li).Value = .txtn°detelmobile.Value    feuille.Range("H" & li).Value = .txtn°detelfixe.Value    feuille.Range("I" & li).Value = .txtCle.Value    feuille.Range("J" & li).Value = .txtCodephotocopieur.Value    feuille.Range("K" & li).Value = .txtn°prisetelephonique.Value    feuille.Range("L" & li).Value = .txtbaiedebrassage.ValueEnd With
...

End Sub

Pour la suite du code, que veux tu faire exactement ?

Cdlmnt

ccm81 · Answer

De rien

Tu ajoutes ces lignes avant End With
   Set feuille = Sheets("Consommations téléphoniques")   li = feuille.Range("A" & Rows.Count).End(xlUp).Row + 1   feuille.Range("A" & li).Value = .txtNom.Value   feuille.Range("B" & li).Value = .txtPrenom.Value
PS. Je ne pourrai plus faire grand chose pour toi, mon vieil excel 2003 plante chaque fois que je réouvre ton fichier

Cdlmnt

Transfert de données automatique d'une feuille excel à une autre

3 réponses

Discussions similaires

Newsletters