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

Signaler
Messages postés
7
Date d'inscription
jeudi 25 février 2016
Statut
Membre
Dernière intervention
16 mars 2016
-
Messages postés
9578
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 octobre 2020
-
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 !

3 réponses

Messages postés
9578
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 octobre 2020
1 921
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
Messages postés
7
Date d'inscription
jeudi 25 février 2016
Statut
Membre
Dernière intervention
16 mars 2016

Bonjour ccm81,

Merci pour votre réponse,

Comme vous me l'avez demandé j'ai mis en place le lien ci-dessous vers cjoint qui permet d'accéder à mon fichier Excel et j'ai décris ce que je veux y faire.

https://www.cjoint.com/c/FCqvysnVpak

Merci d'avance,
CDT
NSA PURPAN
Messages postés
9578
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 octobre 2020
1 921
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 Long
Set feuille = Sheets("Personnel")
li = feuille.Range("A" & Rows.Count).End(xlUp).Row + 1
With 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.Value
End With

...

End Sub

Pour la suite du code, que veux tu faire exactement ?

Cdlmnt
Messages postés
7
Date d'inscription
jeudi 25 février 2016
Statut
Membre
Dernière intervention
16 mars 2016

En fait, je souhaiterais que lorsque on entre un nouveau salarié sur la feuille "Personnel", son nom et prénom figure également et ce de manière automatique dans les colonnes nom et prénom de la feuille "Consommations téléphoniques".
Messages postés
9578
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 octobre 2020
1 921
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