Copier coller lignes à un endroit précis
Résolu/Fermé
AFN
-
5 août 2016 à 13:10
Ant049 Messages postés 154 Date d'inscription jeudi 4 août 2016 Statut Membre Dernière intervention 9 septembre 2016 - 8 août 2016 à 11:20
Ant049 Messages postés 154 Date d'inscription jeudi 4 août 2016 Statut Membre Dernière intervention 9 septembre 2016 - 8 août 2016 à 11:20
A voir également:
- Copier coller lignes à un endroit précis
- Copier coller pdf - Guide
- Retrouver un copier-coller android - Guide
- Copier-coller - Accueil - Windows
- Style d'écriture a copier coller - Guide
- Remettre l'ecran a l'endroit - Guide
6 réponses
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
5 août 2016 à 15:11
5 août 2016 à 15:11
Bonjour AFN,
Dans le cas ci-dessous, j'ai admis que :
- Dans ta feuille 1, tu avais dans la colonne A les noms et dans la B le statut.
- Dans ta feuille 2, tu avais dans la colonne A les noms et dans les autres colonnes les compétences
Dans le cas ci-dessous, j'ai admis que :
- Dans ta feuille 1, tu avais dans la colonne A les noms et dans la B le statut.
- Dans ta feuille 2, tu avais dans la colonne A les noms et dans les autres colonnes les compétences
Sheets("Feuil1").Activate
Cells(1, 2).Select
Do While Not (IsEmpty(ActiveCell))
If ActiveCell.Value = "présent" Then
Selection.Offset(0, -1).Select
a = ActiveCell.Value
Sheets("Feuil2").Activate
Cells(1, 1).Select
Do While Not ActiveCell.Value = a
Selection.Offset(1, 0).Select
Loop
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets("Feuil4").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Paste
End If
Sheets("Feuil1").Activate
Selection.Offset(1, 0).Select
Loop
Bonjour Ant049?
La macro fonctionne bien, mais juste pour le premier nom de ma liste feuille1 (présence). Comment faire pour étendre la macro a chaque nom de ma liste ?
La macro fonctionne bien, mais juste pour le premier nom de ma liste feuille1 (présence). Comment faire pour étendre la macro a chaque nom de ma liste ?
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
5 août 2016 à 15:39
5 août 2016 à 15:39
Autant pour moi, il manquait un tout petit truc :
Sheets("Feuil1").Activate
Cells(1, 2).Select
Do While Not (IsEmpty(ActiveCell))
If ActiveCell.Value = "présent" Then
Selection.Offset(0, -1).Select
a = ActiveCell.Value
Sheets("Feuil2").Activate
Cells(1, 1).Select
Do While Not ActiveCell.Value = a
Selection.Offset(1, 0).Select
Loop
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets("Feuil4").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Paste
End If
Sheets("Feuil1").Activate
Selection.Offset(1, 1).Select
Loop
Toujours pas, si je t'envoie le fichier tu peux me dire si mon adaptation est bonne ?
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
5 août 2016 à 15:47
5 août 2016 à 15:47
Oui
AFN
>
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
5 août 2016 à 15:56
5 août 2016 à 15:56
Aprés une dernière modif de ma part ... tout a planté, je relance est t'envoie le fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Fallona
Messages postés
12
Date d'inscription
vendredi 5 août 2016
Statut
Membre
Dernière intervention
12 avril 2017
5 août 2016 à 16:06
5 août 2016 à 16:06
Je me suis créer un compte.
Je n'arrive pas à ajouter une pièce-jointe à mon message.
Je n'arrive pas à ajouter une pièce-jointe à mon message.
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
5 août 2016 à 17:52
5 août 2016 à 17:52
Va sur cjoint.com
Fallona
Messages postés
12
Date d'inscription
vendredi 5 août 2016
Statut
Membre
Dernière intervention
12 avril 2017
8 août 2016 à 09:48
8 août 2016 à 09:48
Merci, voici donc le liens:
http://www.cjoint.com/c/FHihUtDmUJo
http://www.cjoint.com/c/FHihUtDmUJo
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
8 août 2016 à 11:05
8 août 2016 à 11:05
Bonjour,
Voici le code :
Par contre, tu verras qu'il plante mais là je ne peux rien y faire. En effet, des noms présents sur la feuille des disponibilités sont absents de la feuille des compétences. D'où le blocage pour réunir les informations.
Voici le code :
Sub Macro1()
Sheets("Planning conges à remplir").Activate
Cells(10, 2).Select
Do While Not (IsEmpty(ActiveCell))
If ActiveCell.Value = "1" Then
Selection.Offset(0, -1).Select
a = ActiveCell.Value
Sheets("Matrice Compétence").Activate
Cells(3, 1).Select
Do While Not ActiveCell.Value = a
Selection.Offset(1, 0).Select
Loop
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets("Liste Personne dispo").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Paste
Else
Selection.Offset(0, -1).Select
End If
Sheets("Planning conges à remplir").Activate
Selection.Offset(1, 1).Select
Loop
End Sub
Par contre, tu verras qu'il plante mais là je ne peux rien y faire. En effet, des noms présents sur la feuille des disponibilités sont absents de la feuille des compétences. D'où le blocage pour réunir les informations.
Fallona
Messages postés
12
Date d'inscription
vendredi 5 août 2016
Statut
Membre
Dernière intervention
12 avril 2017
8 août 2016 à 11:15
8 août 2016 à 11:15
d'accord merci beaucoup de ton aide.
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
8 août 2016 à 11:20
8 août 2016 à 11:20
Si cela fonctionne lorsque les noms sont mis partout, merci de mettre résolu à ce topic.
Bonne continuation
Bonne continuation