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

Report automatique de lignes d'un onglet à un autre (en VBA)

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

Fugy

XLDnaute Occasionnel
Bonjours tout le monde !!

Voila en fait je souhaiterai faire un report de lignes complète d'un onglet à un autre. J'ai ci joint le programme

En fait j'ai un tableau (en fond jaune) et je souhaiterai que tout les dépannages à suivre (avec une croix dans la case "à suivre) soit reporté sur l'onglet de la semain suivante.

Pour bien comprendre ce dont j'ai besoin, vous pouvez télécharger le programme ci dessous.

Qqun à une idée ?

Merci FuGy
 

Pièces jointes

Trier par date Trier par votes
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

Salut Fugy
Bonjour le forum

arfff ellle est ou cette colonne à suivre arfffffffff je viens de la trouver lol?????
il faudrait pour espèrer une réponse un peu plus d'explication Lol
Merci D'avance
Bonne journée
 
Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

HEHE !

Je viens de modifié le fichier pour voir la colonne plus précisément.

EN fait, tout les dépannages (dépannage 1, 2 ....) qui ont une croix rouge dans la colonne à suivre, j'aimerais avoir une macro + bouton pour que cela les copies et les mettes dans l'onglet de la semaine +1

Dans ce cas, Dépannage 1 de la ligne 104 est à suivre (il a une croix rouge dans la colonne à suivre) avec ce bouton, se trouverais dans l'onglet S43, à la même ligne ou pas.

Voila
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

re avant de partir

non je n'avais pas cherché assez lol
en pièce jointe une premiere approche ,qui n'est pour l'instant adaptée qu' a tes deux feuilles on devrait pouvoir via un bouton dans la barre de menu faire en sorte que la macro fonctionne, sans ajout de boutons dans chaque feuilles semaine enfin on verra
bonne journée
à ce soir si personne n'est passé par la lol 😀
le fichier :Regarde la pièce jointe Planning MaintenanceV1.zip
Cliquez pour agrandir...
arff je n'avais pas vu non plus le bouton en feuille S43 lol mais bon lol
 
Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

Petite modif SVP.

Y'a t'il possibilité de rajouter un effacement lors du transfert des colonnes F à W + AA à AJ.

La ou cela se complique c'est qu'il me faudrait une effacement que des lignes transférer et pas des autres lignes se trouvant sur l'onglet de la semaine 43.

Je m'explique, des dépannages pourront être planninfier sur 2 à 3 semaines et il faudrait que cela ne me les effaces pas.

As tu compris le problemes ??
 
Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

Petite modif Jean Marie SVP

j'aimerai en fait que cela ne copie que les cases des colonnes B et C et pas la ligne entière en fait.

T'as une petite idée ?
 
Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

RESALUT

Scuse pour la pression ....

En fait il faudrait que cela transfert par certaines cases et non les lignes entières.

Je viens de te mettre le fichier joint avec les explications
 
Vote positif 0 Vote négatif
Re : Report automatique de lignes d'un onglet à un autre (en VBA)

Salut cédric
voila ce que j'ai modifié 😛
Code: 
Sub transfert()
Dim Tabtemp As Variant
Dim L As Integer, Derlgn As Integer
Dim Num_Sem As Byte, C As Byte
Dim Ws_Source As Worksheet
Dim Ws_Dest As Worksheet
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Ws_Source = ActiveSheet
Num_Sem = Val(Right(Ws_Source.Name, 2)) + 1
With Ws_Source
Tabtemp = .Range("B103:AJ" & .Range("B65536").End(xlUp).Row).Value
End With
Set Ws_Dest = Worksheets("S" & Num_Sem)
With Ws_Dest
     .Range("B103").Value = "Facturation BJ"

  For L = 1 To UBound(Tabtemp, 1)
     If Tabtemp(L, 31) = "x" Then
For C = 1 To UBound(Tabtemp, 2) 'ici j'ai supprimé
     Derlgn = .Range("B65536").End(xlUp).Row + 1
                  .Cells(Derlgn, 1 + C) = Tabtemp(L, C) 'ici j'ai supprimé
        .Cells(Derlgn, 2) = Tabtemp(L, 1)  'ici j'ai ajouté
        .Cells(Derlgn, 3) = Tabtemp(L, 2)  'ici j'ai ajouté
                  Next  'ici j'ai supprimé
     End If
  Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
bonne journée
je me sauve lol
 
Vote positif 0 Vote négatif

Pièces jointes

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

Discussions similaires

L
  • Question Question
XL 2021 saisie automatique d'un onglet à un autre
Réponses
2
Affichages
295
LuckyLuciano
L
  • Résolu(e)
XL 2021 Report de lignes d'un onglet à un autre en conservant format et recopie des commentaires
Réponses
9
Affichages
275
scoobytor
  • Question Question
Microsoft 365 Utilisation d'un module VBA en tâche de fond
Réponses
5
Affichages
141
aspect
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
319
Nico Gre
N
V
  • Question Question
Autres Exporter les données vers un autre onglet sans laisser d'espaces entre les lignes
Réponses
13
Affichages
607
Vakarm31
V
O
  • Résolu(e)
XL 2013 Macro qui duplique les lignes d'un tableau en fonction d'un nombre précis
Réponses
7
Affichages
358
Staple1600
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
267
sylvanu
F
  • Question Question
XL 2016 Fusion 1 onglet de plusieurs fichiers EXCEL
Réponses
1
Affichages
220
chris
O
  • Question Question
Microsoft 365 mis a jour d'un onglet a un autre dans excel
Réponses
4
Affichages
272
Olivier60
O
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
580
Gégé-45550
O
  • Question Question
XL 2013 Recopier automatique des valeurs d'un onglet vers un autre onglet selon critère
Réponses
2
Affichages
818
olivieroma
O
D
  • Question Question
Microsoft 365 faire un tableau de suivi d'activité sur la base d'un TCD avec filtre
Réponses
0
Affichages
379
Daniel200666
D
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
1 K
Nel'
N
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
  • Question Question
Power Query Ajouter des lignes à une table existante à partir d'un autre fichier
Réponses
13
Affichages
1 K
chris
C
  • Question Question
Mettre une cellule en jaune quand le contenue correspond a une des valeurs d'une colonne d'un autre onglet
Réponses
9
Affichages
535
job75
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
786
ORL
O
C
  • Question Question
XL 2016 Création d'un fichier Excel de planification d'équipe avec contraintes
Réponses
8
Affichages
969
fanfan38
S
  • Question Question
Autres Report de données d'un onglet sur autre pour récapitulatif
Réponses
0
Affichages
449
Shimano
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…