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

Macro copier coller avec conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nesumi
  • 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
N

nesumi

Guest
Bonjour,
Me revoilà avec mes souci de macro que je ne sais pas faire.

J'ai essayé de mettre le fichier mais apparemment il est trop gros et le site ne prend pas le format que j'ai pour compresser. Je vais donc essayer d'être claire.

J'ai un classeur Excel 2007. Dedans j'ai plusieurs feuilles qui correspondent chacune à une personne. Cette personne note ses actions à faire sur sa feuille. Certaines personnes ont plusieurs type d'action (liste déroulante ADM ou RH ou PROPRE). Il y a aussi 2 feuilles synthèses : Une pour les actions ADM l'autre pour les actions RH. Ces feuilles synthèse sont les même que les feuilles perso sauf la première colonne qui doit recevoir le nom de la personnes a qui appartient l'action

Je souhaiterais avoir un boutons sur chacune des feuilles Synthèse qui permet de recopier les actions des feuilles individuelle (en prenant en compte le type ADM RH...) sur la feuille synthèse et rajouter le nom de la personne a qui appartient l'action (nom de la feuille perso).

Soit : Synthèse ADM = Actions sur feuilles perso ADM et rajouter le nom
Synthèse RH = Actions feuilles perso RH et rajouter le nom

Je sais que je ne devrai spas m'embarquer dans des trucs comme ça alors que je ne sais pas faire mais je me dis que je peux peut être apprendre en même temps.

Merci d'avance pour votre aide
 
Trier par date Trier par votes
Re : Macro copier coller avec conditions

bonjour,

tout a fait raison dans ton désir d'apprendre, mais il serait sage de créer une copie de ton fichier, d'y laisser que 2 ou 3 personnes et de nous l'envoyer, qu'on sache de quoi il retourne exactement, parce que là, je vois pas trop (même pas du tout)
 
Vote positif 0 Vote négatif
Re : Macro copier coller avec conditions

Alors j'ai mis le fichier en pièce-jointe. Je récapitules:

Les Feuil 3 et 4 sont les actions propre a chaque personnes M. Feuil3 et M. feuil4 marquent sur leur feuille se qu'ils doivent faire

M. Feuil4 à des chose a faire conernant de l'administratif et du RH (liste déroulante)
M. Feuil3 n'a que de l'administratif

ce que je voudrais c'est recopier dans les feuilles Synthèse ADM et RH les actions de toutes les personnes selon le type d'action ADM ou RH. Mais il faut rajouter la personne qui doit les faire (le nom de la feuille Feuil3 et Feuil4)

Est ce que c'est plus clair?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro copier coller avec conditions

Bon j'ai pu avancer une peu toute seule.
Par contre je bloque un peu.
J'ai réussi a faire le copier coller de mes feuilles sur la première. Par contre je pèche sur comment lui expliquer que Si sur une ligne la colonne 6 n'est pas réunion ADM alors il faut aller chercher la ligne suivante.
Je vous mets le code tel qu'il est aujourd'hui
Code: 
With ActiveWorkbook.Sheets("SYNTHESE_Réunion_ADM")

.Activate

fdd = .Cells(10000, 1).End(xlUp).Row
If fdd >= 5 Then .Range(Cells(5, 1), Cells(fdd, 14)).ClearContents
ligne_synthese = 5

For Each Feuil In ActiveWorkbook.Worksheets

If Feuil.Name = "SYNTHESE_Réunion_ADM" Or Feuil.Name = "Actions Closes" Or Feuil.Name = "SYNTHESE_Réunion_RH" Then GoSub Feuil_svt
fdf = ActiveWorkbook.Sheets(Feuil.Name).Cells(10000, 1).End(xlUp).Row
If fdf < 5 Then GoSub Feuil_svt

For ligne = 5 To fdf

.Cells(ligne_synthese, 1) = (Feuil.Name)
.Cells(ligne_synthese, 2) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 1)
.Cells(ligne_synthese, 3) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 2)
.Cells(ligne_synthese, 4) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 3)
.Cells(ligne_synthese, 5) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 4)
.Cells(ligne_synthese, 6) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 5)
.Cells(ligne_synthese, 7) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 6)
.Cells(ligne_synthese, 8) = ActiveWorkbook.Sheets(Feuil.Name).Cells(ligne, 7)

ligne_synthese = ligne_synthese + 1
Next ligne

Feuil_svt:
Next Feuil

End With
End Sub

C'est un code fait par un collègue auquel j'ai fais mes modifications.

Est ce que quelqu'un peut m'aider?😕
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
405
vgendron
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
538
klin89
F
  • Question Question
Microsoft 365 Excel - Report des valeurs et détection de doublons
Réponses
7
Affichages
338
djidji59430
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
627
Phil69970
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
640
MANU64360
M
  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
276
jcf6464
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
233
job75
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
456
caseras
C
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
725
mromain
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
824
AtTheOne
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
290
NikonvsWild
N
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
975
Nel'
N
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
285
vgendron
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
868
Lisette
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
650
candido57
C
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
279
Cousinhub
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
657
micie1509
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
947
jeff1494
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
825
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…