XL 2019 copier cellule dans une autre feuille en colonne

Créer une discussion
Répondre

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
chinel

chinel

XLDnaute Impliqué
Bonjour tout monde, mon projet avance bien et j'en suis content, merci aux gens de ce forum . J'ai besoin d'aide car j'ai ma feuille "Planning" et je désire copier les prénoms des gens dans les colonnes respectives (leur lui de travail) (emplacement) dans la feuille "Personnel". Mon but c'est de pouvoir faire des statiques du style "qui va ou et combien de fois sur l'année?" Merci d'avance !
 

Pièces jointes

Solution
job75
Si vous préférez un tableau à double entrée voyez ce fichier (4) et la feuille "Comptage".

Pas besoin de VBA, formule en B3 =NB.SI(INDEX(T;;LIGNE()-1);B$2)

T étant la plage nommée par la macro Archivage.

Les valeurs zéro sont masquées par le format personnalisé 0;;
Trier par date Trier par votes
Bonjour @chinel

Je te propose ce fichier
J'ai renommé ces 4 cellules de CE en CE1 à CE4 pour que cela fonctionne

1671659528483.png


Merci de ton retour

@Phil69970
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour chinel, Phil69970, le forum,

Comme il y a très peu d'explications il paraît inutile de se casser la tête.

Voyez cette macro dans le code de la feuille "Personnel" :
VB: 
Private Sub Worksheet_Activate()
Dim c As Range, n%
For Each c In Sheets("Planning").[A8,A10:A15,F8,F10:F15,A17,A19:A22,F17,F19:F23,A25:A29] 'plage adaptable
    n = n + 1
    Cells(1, n) = UCase(c)
    Cells(2, n) = c(1, 2)
Next
[A1].Resize(2, n).Borders.Weight = xlMedium 'bordures
[A1].Offset(, n).Resize(2, Columns.Count - n).Delete xlToLeft 'RAZ à droite
Columns.AutoFit 'ajustement largeurs
End Sub
Elle se déclenche quand on active la feuille.

Nota 1 : a priori le bouton IMPRIMER n'a rien à voir avec ces copies de cellules.

Nota 2 : j'ai allégé la feuille "Jours fériés" qui pesait anormalement lourd.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour chinel, Phil69970, le forum,

Comme il y a très peu d'explications il paraît inutile de se casser la tête.

Voyez cette macro dans le code de la feuille "Personnel" :
VB: 
Private Sub Worksheet_Activate()
Dim c As Range, n%
For Each c In Sheets("Planning").[A8,A10:A15,F8,F10:F15,A17,A19:A22,F17,F19:F23,A25:A29] 'plage adaptable
    n = n + 1
    Cells(1, n) = UCase(c)
    Cells(2, n) = c(1, 2)
Next
[A1].Resize(2, n).Borders.Weight = xlMedium 'bordures
[A1].Offset(, n).Resize(2, Columns.Count - n).Delete xlToLeft 'RAZ à droite
Columns.AutoFit 'ajustement largeurs
End Sub
Elle se déclenche quand on active la feuille.

Nota 1 : a priori le bouton IMPRIMER n'a rien à voir avec ces copies de cellules.

Nota 2 : j'ai allégé la feuille "Jours fériés" qui pesait anormalement lourd.

A+
Cliquez pour agrandir...
Merci

job75​

mais ce n'est pas vraiment ça que je désire mais merci quand même ! je préfère l'autre solution

job75​

 
Vote positif 0 Vote négatif
job75 à dit:
C'est bien ce que fait ma macro, si vous voulez autre chose dites-le.
Cliquez pour agrandir...
oui j'apprécie votre boulot mais je préfère la macro de

Phil69970​

qui peut mettre les prénoms à la suite de la'autre. Mais maintenant, je voudrais mettre en place un système qui me permettrai de voir combien de fois l'opérateur va sur une machine. Exemple: Didier sur T10 (10 fois) vis-à-vis du planning réalisé tous les jours.
 
Vote positif 0 Vote négatif
Je comprends que vous voulez archiver les affectations alors voyez ce fichier (2) et la macro du bouton :
VB: 
Sub Archivage()
If MsgBox("Avez-vous bien vérifié les affectations ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
    n = n + 1
    F.Cells(lig, n) = c
Next
F.Cells(lig, 1).Resize(, n).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
F.Activate 'facultatif
End Sub
Je verrai demain pour le comptage des occurrences.

Bonne nuit.
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Je comprends que vous voulez archiver les affectations alors voyez ce fichier (2) et la macro du bouton :
VB: 
Sub Archivage()
If MsgBox("Avez-vous bien vérifié les affectations ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
    n = n + 1
    F.Cells(lig, n) = c
Next
F.Cells(lig, 1).Resize(, n).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
F.Activate 'facultatif
End Sub
Je verrai demain pour le comptage des occurrences.

Bonne nuit.
Cliquez pour agrandir...
super boulot, merci peut-on incorporer la date du planning à chaque fois qu'on archive et aussi éviter de mettre la même personne sur 2 machines en même temps avec un message exemple: " Attention Olivier est déjà occupé sur une machine". Merci encore pour votre aide, bonne journée
 
Vote positif 0 Vote négatif
Bonjour chinel, le forum,

Voyez ce fichier (3) avec :

1) le code de la feuille "Planning" pour éviter les doublons :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,G:G]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
If Target.Count > 1 Then Application.Undo: GoTo 1 'annule les entrées ou effacements multiples
If Target = "" Or (Application.CountIf([B:B], Target) + Application.CountIf([G:G], Target)) = 1 Then GoTo 1
Target.Select
MsgBox "Cet ouvrier est déjà affecté à une autre machine !", 48, "Doublon"
Target = ""
1 Application.EnableEvents = True 'réactive les évènements
End Sub
2) les codes des boutons dans Module1 :
VB: 
Sub Archivage()
If MsgBox("Avez-vous bien vérifié les affectations ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
F.Cells(lig, 1) = Sheets("Planning").[B1] 'date
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
    n = n + 1
    F.Cells(lig, n + 1) = c.Value
Next
F.Cells(lig, 1).Resize(, n + 1).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
F.Activate 'facultatif
End Sub

Sub Comptage()
UserForm1.Show 0 'non modal
End Sub
3) le code de l'UserForm :
VB: 
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then _
    TextBox1 = Application.CountIf(Sheets("Personnel").Columns(ComboBox1.ListIndex + 2), ComboBox2.Text) Else TextBox1 = ""
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub
Les listes des 2 ComboBox sont définies par leur propriété RowSource.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
job75 à dit:
Bonjour chinel, le forum,

Voyez ce fichier (3) avec :

1) le code de la feuille "Planning" pour éviter les doublons :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,G:G]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
If Target.Count > 1 Then Application.Undo: GoTo 1 'annule les entrées ou effacements multiples
If Target = "" Or (Application.CountIf([B:B], Target) + Application.CountIf([G:G], Target)) = 1 Then GoTo 1
Target.Select
MsgBox "Cet ouvrier est déjà affecté à une autre machine !", 48, "Doublon"
Target = ""
1 Application.EnableEvents = True 'réactive les évènements
End Sub
2) les codes des boutons dans Module1 :
VB: 
Sub Archivage()
If MsgBox("Avez-vous bien vérifié les affectations ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
F.Cells(lig, 1) = Sheets("Planning").[B1] 'date
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
    n = n + 1
    F.Cells(lig, n + 1) = c.Value
Next
F.Cells(lig, 1).Resize(, n + 1).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
F.Activate 'facultatif
End Sub

Sub Comptage()
UserForm1.Show 0 'non modal
End Sub
3) le code de l'UserForm :
VB: 
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then _
    TextBox1 = Application.CountIf(Sheets("Personnel").Columns(ComboBox1.ListIndex + 2), ComboBox2.Text) Else TextBox1 = ""
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub
Les listes des 2 ComboBox sont définies par leur propriété RowSource.

A+
Cliquez pour agrandir...
Merci job75 de ton soutien, je regarde plus tard car ici, je bosse. 🤪
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour chinel, le forum,

Voyez ce fichier (3) avec :

1) le code de la feuille "Planning" pour éviter les doublons :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,G:G]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
If Target.Count > 1 Then Application.Undo: GoTo 1 'annule les entrées ou effacements multiples
If Target = "" Or (Application.CountIf([B:B], Target) + Application.CountIf([G:G], Target)) = 1 Then GoTo 1
Target.Select
MsgBox "Cet ouvrier est déjà affecté à une autre machine !", 48, "Doublon"
Target = ""
1 Application.EnableEvents = True 'réactive les évènements
End Sub
2) les codes des boutons dans Module1 :
VB: 
Sub Archivage()
If MsgBox("Avez-vous bien vérifié les affectations ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
F.Cells(lig, 1) = Sheets("Planning").[B1] 'date
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
    n = n + 1
    F.Cells(lig, n + 1) = c.Value
Next
F.Cells(lig, 1).Resize(, n + 1).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
F.Activate 'facultatif
End Sub

Sub Comptage()
UserForm1.Show 0 'non modal
End Sub
3) le code de l'UserForm :
VB: 
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then _
    TextBox1 = Application.CountIf(Sheets("Personnel").Columns(ComboBox1.ListIndex + 2), ComboBox2.Text) Else TextBox1 = ""
End Sub

Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub
Les listes des 2 ComboBox sont définies par leur propriété RowSource.

A+
Cliquez pour agrandir...
super travail ! Ce qui m'embête, c'est l'userform car j'aurai préféré sur une feuille, mais comment agencer ça ? Je ne sais pas comment faire, mais je pensais plutôt comme l'image
 

Pièces jointes

  • demande1.png
    demande1.png
    27.2 KB · Affichages: 13
Dernière édition:
Vote positif 0 Vote négatif
job75 à dit:
Si vous préférez un tableau à double entrée voyez ce fichier (4) et la feuille "Comptage".

Pas besoin de VBA, formule en B3 =NB.SI(INDEX(T;;LIGNE()-1);B$2)

T étant la plage nommée par la macro Archivage.

Les valeurs zéro sont masquées par le format personnalisé 0;;
Cliquez pour agrandir...
Alors là, on frôle la perfection ! C'est vrai superrrrrrrrr ! Merci beaucoup !!! Je vous souhaite de bonnes fêtes de fin d'année et mes meilleurs voeux pour 2023 !
 
Vote positif 0 Vote négatif
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

Discussions similaires

W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
441
Webperegrino
W
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
612
fanfan38
fanfan38
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
32
sylvanu
sylvanu
chinel
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
206
chinel
chinel
jeanmi
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
536
jeanmi
jeanmi
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
485
steph_29120
S
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
572
fanfan38
fanfan38
F
  • Question Question
XL 2019 Mettre en surbrillance une colonne en fonction de l'entête
Réponses
7
Affichages
216
TooFatBoy
TooFatBoy
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
71
Pierreavecunp
P
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
487
Nel'
N
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
2 K
NONO14
N
Wayat
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
619
fanfan38
fanfan38
chinel
  • Résolu(e)
XL 2016 problème de formule (pause et date)
Réponses
8
Affichages
260
chinel
chinel
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
663
MGH
M
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
41
StéphaneDeLà
S
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
174
ORL
O
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
518
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
371
TooFatBoy
TooFatBoy
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
249
Olihoes
O
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
119
Phil69970
Phil69970
Retour