Microsoft 365 Aide pour code copier coller

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Véhuel
  • 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
Véhuel

Véhuel

XLDnaute Nouveau
Bonsoir a tous,
Par suite de méconnaissance dans le monde du code VBA, je vous sollicite pour créer un bouton VBA pour copier le tableau « FICHE NAVETTE » A2😀36 et de le coller dans une des feuilles suivant le mois en cours. Plusieurs « FICHES NAVETTES » peuvent être misent les unes en dessous des autres séparées d’une ligne en chaque copie. Est-ce possible ?
Un exemple de ce que je veux dans la feuille "EXEMPLE"
merci pour votre aide
 

Pièces jointes

Solution
AtTheOne
Bonjour à toutes & à tous, bonjour @clamatt
clamatt à dit:
protéger par mot de passe perso, cette fiche navette pour éviter toutes mauvaises manipulations d'autres personnes
Cliquez pour agrandir...
Voilà, avec le mot de passe enregistré dans la constante MdP ("MonMotDePasse" à changer par le tien !)
Enrichi (BBcode): 
'———————————————————————————————————————————————————————————
'Recopier la fiche navette dans la feuille du mois courant
'———————————————————————————————————————————————————————————

Const MdP$ = "MonMotDePasse"

Sub TransférerNavette()
     Dim Sh_S As Worksheet, Sh_C As Worksheet, NbL As Integer, Mois$, NbFiches As Integer
   
     Set Sh_S = ThisWorkbook.Worksheets("FICHE NAVETTE")
   
     NbL = Sh_S.[tb_Navette].Rows.Count + 1 'Nombre de...
Trier par date Trier par votes
herve62 à dit:
Bonjour
Est ce que cet exemple irait pour toi ?
Cliquez pour agrandir...
Bonjour herve62
Merci, c'est très bien en plus avec les bonnes proportions, mais est-il possible de sélectionner seulement mon tableau A2 : D36. de plus, il peut y avoir dans le mois plusieurs fiches avec (des dates et données variables) les une en dessous des autres et si possible encore de séparer chaque plage d'une ligne pour bien séparer les différentes fiches coller (pour la traçabilité). je ne sais pas si c'est réalisable.
 
Vote positif 0 Vote négatif
ok, merci je le fais tout de suite, en revanche quand tu dis " Le tableau par contre doit toujours avoir le même nombre de lignes." du coup il prend 2 feuilles et il doit etre aussi imprimé en papier et tenir que dans 1 feuille. merci
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir à toutes & à tous, bonsoir @clamat
J'arrive un peu tard comme d'hab ...
Avec également les mois accentués

La macro :
VB: 
'___________________________________________________________
'Recopier la fiche navette dans la feuille du mois prochain
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Sub TransférerNavette()
     Dim Sh_S As Worksheet, Sh_C As Worksheet, NbL As Integer, Mois$, NbFiches As Integer
  
     Set Sh_S = ThisWorkbook.Worksheets("FICHE NAVETTE")
  
     NbL = Sh_S.[tb_Navette].Rows.Count + 1 'Nombre de ligne de la Fiche +1 ligne intercalaire
     Mois = UCase(Format(WorksheetFunction.EoMonth(Date, 1), "mmmm")) 'Mois Prochain
     Set Sh_C = ThisWorkbook.Worksheets(Mois)
  
     With Sh_C
          NbFiches = Round(.Cells(.Rows.Count, 1).End(xlUp).Row / NbL, 0) 'Nombre de fiches déjà présentes pour ce Mois
          Sh_S.[tb_Navette].EntireRow.Copy
          .Cells(NbFiches * NbL + 1, 1).PasteSpecial Paste:=xlPasteFormats  'Pour recopier la hauteur des lignes
          Sh_S.[tb_Navette].Copy Destination:=.Cells(NbFiches * NbL + 1, 1) 'Copie de la fiche entière
     End With
  
     Application.CutCopyMode = False
  
End Sub
Voir le fichier joint
EDIT : J'ai nommé le tableau "Tb_Navette"
 

Pièces jointes

Vote positif 0 Vote négatif
Re, Re Bonsoir
Par contre j'aime bien l'idée de @youky(BJ) de ne pas multiplier les cases à cocher en faisant un pastespécial sans argument (car quand il y en a beaucoup, cela alourdit le fichier).
J'ai donc instrumenté tes 2 cases à cocher (renommées à cet effet CkB_OUI et CkB_NON) qui appelle la macro suivante en cas de clic sur l'une d'entre elles :
VB: 
Sub CkB_OUI_NON_Cliquer()
          Nom = Application.Caller
        
          Set Rg = ActiveSheet.[D5]
          Texte = "Contient des chèques bancaires & CESU : "
        
          Etat = ActiveSheet.Shapes(Nom).ControlFormat.Value
          Select Case Nom
               Case "CkB_OUI"
                    If Etat = xlOn Then
                         Rg.Value = Texte & "OUI"
                         ActiveSheet.Shapes("CkB_NON").ControlFormat.Value = xlOff
                    Else
                         Rg.Value = Texte & "NON"
                         ActiveSheet.Shapes("CkB_NON").ControlFormat.Value = xlOn
                    End If
               Case "CkB_NON"
                    If Etat = xlOn Then
                         Rg.Value = Texte & "NON"
                         ActiveSheet.Shapes("CkB_OUI").ControlFormat.Value = xlOff
                    Else
                         Rg.Value = Texte & "OUI"
                         ActiveSheet.Shapes("CkB_OUI").ControlFormat.Value = xlOn
                    End If
          End Select
End Sub

et j'ai modifié la macro de transfert de la Fiche Navette :
VB: 
'___________________________________________________________
'Recopier la fiche navette dans la feuille du mois prochain
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Sub TransférerNavette()
     Dim Sh_S As Worksheet, Sh_C As Worksheet, NbL As Integer, Mois$, NbFiches As Integer
  
     Set Sh_S = ThisWorkbook.Worksheets("FICHE NAVETTE")
  
     NbL = Sh_S.[tb_Navette].Rows.Count + 1 'Nombre de ligne de la Fiche +1 ligne intercalaire
     Mois = UCase(Format(WorksheetFunction.EoMonth(Date, 1), "mmmm")) 'Mois Prochain
     Set Sh_C = ThisWorkbook.Worksheets(Mois)
  
     With Sh_C
          NbFiches = Round(.Cells(.Rows.Count, 1).End(xlUp).Row / NbL, 0)  'Nombre de fiches déjà présentes pour ce Mois
          Sh_S.[tb_Navette].EntireRow.Copy
          .Cells(NbFiches * NbL + 1, 1).PasteSpecial Paste:=xlPasteFormats  'Pour recopier la hauteur des lignes
          Sh_S.[tb_Navette].Copy
          .Cells(NbFiches * NbL + 1, 1).PasteSpecial                        'Copie de la fiche entière sans les ChekBoxes
     End With
  
     Application.CutCopyMode = False
  
End Sub

Voir la pièce jointe
A bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
youky(BJ) à dit:
>>Suivant le mois en cours
Donc rectif
Voici un nouveau fichier qui copie sur l'onglet suivant la date et non pas la date en D3
Le nombre de lignes peut être modifié qu'importe.
Bruno
Cliquez pour agrandir...
Bonsoir et merci youky
la date en D 3 ne me gênait pas, en revanche la fiche navette se colle dans la feuille de juin et non en mai (mois en cours) de plus, il manque le bas du tableau 8 lignes exactement), je te remercie pour ton aide précieuse et le temps que tu y passes.
 
Vote positif 0 Vote négatif
bonne nuit à toutes et à tous bonne nuit @clamatt :
Faut-il copier la fiche :
  1. dans la feuille du mois qui suit le mois en cours ?
    tu dis : «le coller dans une des feuilles suivant le mois en cours»
  2. dans la feuille du mois en cours ?

Moi j'ai fait la copie selon le point 1 : nous sommes en mai, la copie se fait dans la feuille du mois suivant c'est à dire juin or tu dis à @youky(BJ), qui vient de modifier sa macro pour faire la copie en juin.
clamatt à dit:
en revanche la fiche navette se colle dans la feuille de juin et non en mai (mois en cours)
Cliquez pour agrandir...
🤔

Aurait du fromage blanc dans la tête ? 😱
J'aurais peut-être dû comprendre «le coller dans la feuille correspondant au mois en cours», non ?
(la modif n'est pas bien compliquée, mais comme tu le vois j'ai besoin qu'on me mette les points sur les i !😜

A bientôt
En PJ version faisant la copie sur le mois correspondant au mois en cours. 😜
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
AtTheOne à dit:
bonne nuit à toutes et à tous bonne nuit @clamatt :
Faut-il copier la fiche :
  1. dans la feuille du mois qui suit le mois en cours ?
    tu dis : «le coller dans une des feuilles suivant le mois en cours»
  2. dans la feuille du mois en cours ?

Moi j'ai fait la copie selon le point 1 : nous sommes en mai, la copie se fait dans la feuille du mois suivant c'est à dire juin or tu dis à @youky(BJ), qui vient de modifier sa macro pour faire la copie en juin.

🤔

Aurait du fromage blanc dans la tête ? 😱
J'aurais peut-être dû comprendre «le coller dans la feuille correspondant au mois en cours», non ?
(la modif n'est pas bien compliquée, mais comme tu le vois j'ai besoin qu'on me mette les points sur les i !😜

A bientôt
En PJ version faisant la copie sur le mois correspondant au mois en cours. 😜
Cliquez pour agrandir...
bonjour AtTheOne,
en effet, je n'ai pas bien expliqué ma demande, et c'est bien " la copie sur le mois correspondant au mois en cours" nous sommes en mai, donc copies dans la feuille du mois de mai, en juin les copies seront dans la feuilles de juin, ect....
merci infiniment de te pencher sur mon tableau et de prendre le temps
 
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

P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
89
vgendron
vgendron
chinel
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
231
chinel
chinel
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
157
AtTheOne
AtTheOne
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
454
klin89
klin89
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
215
sylvanu
sylvanu
E
  • Question Question
XL 2019 gestion du presse papier
3 4 5
Réponses
66
Affichages
1 K
patricktoulon
patricktoulon
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
81
StéphaneDeLà
S
J
  • Résolu(e)
XL 2021 Problème code VBA
Réponses
10
Affichages
703
Phil69970
Phil69970
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
155
Phil69970
Phil69970
E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
256
TooFatBoy
TooFatBoy
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
679
gwenn49
G
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
805
Pac41240
P
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
597
Valter
V
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
Phil69970
P
  • Résolu(e)
Erreur de code calcul de pourcentage par tranche
Réponses
4
Affichages
164
Plans24
P
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
599
sambio2
S
BenHarber
  • Question Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
BenHarber
Véhuel
  • Résolu(e)
Microsoft 365 Aide pour un code VBA
Réponses
10
Affichages
743
Véhuel
Véhuel
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
644
phoceenjo
P
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
job75
Retour