XL 2016 recopier les données de certaines cellules dans un autre onglet

pat33bordeaux

XLDnaute Occasionnel
Bonjour,
Je voudrais recopier des données dans un autre onglet : comment faire ?
Dans mon classeur je voudrais recopier toutes les données de l'onglet FRITEUSE 1 dans l'onglet MOIS
afin d'avoir uniquement dans l'onglet MOIS que les données d'un mois bien précis exemple on va dire JUILLET mais en ayant la possibilité de changer le mois
Merci pour votre aide
Bon week-end
 

Pièces jointes

  • Enregistrements contrôles Copie.xlsm
    286.2 KB · Affichages: 28

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@pat33bordeaux
Pour infos
Demandeur
5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.
Remplacer ton ficher avec une version anonymisée, ça serait plus mieux ;)
(en mettant NOM1 PRENOM1 ect... à la place des patronymes qu'on peut lire dans ton fichier exemple)


Sinon pour ta question:
•Tes onglets ont vocation a être imprimés sur papier ou pas ?
•Est-ce qu'on peut envisager un réagencement des données ?
(afin d'utiliser un TCD)

Petit exemple de ce qu'on pourrait faire
01ExTCD.jpg
 
Dernière édition:

pat33bordeaux

XLDnaute Occasionnel
Bonjour,
Oui mes onglets ont pour vocation a être imprimés sur papier
non il n'est pas possible d'envisager un réagencement des données (afin d'utiliser un TCD) j'y avais penser mais pas
très présentable pour une impression papier pour les services de la DDSVP
Cordialement
Bon week end
 

Staple1600

XLDnaute Barbatruc
Re

@pat33bordeaux
Je veux dire que sur un forum public comme XLD, on ne diffuse pas de fichier qui contiennent des données confidentielles.
On crée une copie du fichier original en enlevant tout ce qui ressemble à une donnée confidentielle.
Ce fichier-copie sert à illustrer la question.
Donc ici pour ta question, sur une copie de ton fichier sur la feuille 4 dans la colonne G, il te suffit de mettre des noms "bidons"
Et c'est donc cette version anonymisée de ton fichier que tu joins à ta question
(c'est ce que j'ai fais et qu'on vois sur ma copie d'écran)

Par contre le demandeur lui sur son propre PC ne change pas son fichier original.

NB: C'est pour éviter tout problème d'ordre juridique qu'il y a ce point dans la charte.
Parce qu'il y arrive que des demandeurs joignent des fichiers de l'entreprise où ils travaillent, avec des données hautement sensibles ou confidentielles.

Voilà j'espère que j'ai été plus clair dans mes propos ;)
 

Staple1600

XLDnaute Barbatruc
Re

@pat33bordeaux
Cette information ne figurait pas dans le message 1
dans le fichier sur la feuille 4 dans la colonne G tous les noms sont "bidons" ils ont étaient crées et ne sont pas réels
Du coup, pas besoin d'édition ;)

NB: Il y avait quand même une donnée confidentielle dans ton fichier ;)
(dans ses propriétés en tout cas)
Auteur: Nic*l*s L**renc**n

Pour revenir à ta question,:
1) il n'y aura qu'un seul onglet MOIS
(ou un onglet pour chaque mois JANVIER, FEVRIER etc...) ?

2) Si il n'y a qu'un seul onglet MOIS
Dedans on doit mettre les données de toutes les friteuses en rapport avec ce mois?
(mais il n'y a pas de colonne FRITEUSE sur l'onglet MOIS)

Ou dans l'onglet MOIS, on copie les données de FRITEUSE1, on imprime puis on efface
et on recommence avec FRITEUSE2 etc... ?
 
Dernière édition:

pat33bordeaux

XLDnaute Occasionnel
Re,
désolé pour ce manque d'information dans le message 1
NB: Il y avait quand même une donnée confidentielle dans ton fichier = oui en effet
Cordialement
Bon week end
 

Pièces jointes

  • 2018-04-21_101038.jpg
    2018-04-21_101038.jpg
    143.1 KB · Affichages: 25
  • 2018-04-21_101122.jpg
    2018-04-21_101122.jpg
    174.6 KB · Affichages: 26

pat33bordeaux

XLDnaute Occasionnel
re,
" Pour revenir à ta question, il n'y aura qu'un seul onglet MOIS
(ou un onglet pour chaque mois JANVIER, FEVRIER etc...) ? "
Si on ne peux conserver qu'un seul onglet MOIS c'est mieux sinon à défaut un onglet pour chaque mois JANVIER, FEVRIER etc...
Cordialement
Bon week end
 

Staple1600

XLDnaute Barbatruc
Re

Voici une piste possible
(fonctionne sur ton fichier exemple avec un léger remaniement:
il ne faut pas de cellules fusionnées dans ta ligne de titres de tes tableaux* )
Donc avec ces modifs effectuées, la macro ci-dessous fonctionne
NB: Il faut que ce soit une feuille FRITEUSE qui soit la feuille active
VB:
Sub Test_OK()
Dim Mois, nMois
Sheets("MOIS").Rows("13:1600").ClearContents
Mois = InputBox("Choisir le mois?" & Chr(13) & "janvier=1 etc...", "Choix Mois", 1)
nMois = CLng(20 + Mois)
ActiveSheet.Range("$B$12:$G$24").AutoFilter Field:=2, Criteria1:=nMois, Operator:=xlFilterDynamic
ActiveSheet.AutoFilter.Range.Copy Sheets("MOIS").Range("B12")
ActiveSheet.ShowAllData
End Sub

EDITION: Une version "plus risquée" (en cas de faute d'orthographe dans le nom du mois)
Ici on doit saisir le nom du mois
VB:
Sub Test2_OK()
Dim Mois, nMois, tabMois
tabMois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
Sheets("MOIS").Rows("13:1600").ClearContents
Mois = InputBox("Saisir le nom du mois en toute lettre.", "Choix Mois", "janvier")
nMois = CLng(20 + Application.Match(Mois, tabMois, 0))
ActiveSheet.Range("$B$12:$G$24").AutoFilter Field:=2, Criteria1:=nMois, Operator:=xlFilterDynamic
ActiveSheet.AutoFilter.Range.Copy Sheets("MOIS").Range("B12")
ActiveSheet.ShowAllData
End Sub

NB: *Donc la ligne des titres des tableaux est la ligne 12 (et ce sur tous les onglets)
et les données saisies dans les tableaux commencent en B13
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo