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

[Fugy]

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

 

[Fugy]

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

Personne a d'idée ??

 

[ChTi160]

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

 

[Fugy]

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

 

[ChTi160]

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

arff je n'avais pas vu non plus le bouton en feuille S43 lol mais bon lol

 

[Fugy]

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

he bien niquel !!! je vais faire 2, 3 modif pour l'adapter à mon fichier.

Si besoin, je te rappel

Merci A bientôt !!

 

[Fugy]

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 ??

 

[Fugy]

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

Jean Marie ??

1 p'tit coup main ??

 

[Fugy]

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 ?

 

[ChTi160]

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

re Fugy

peux tu être un peu plus précis dans ta demande

merci d'avance

patience,,,, ici on est pas à la tâche lol 😛

 

[Fugy]

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

 

[Fugy]

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

voila le fichier ...

 

[ChTi160]

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

Salut cédric
voila ce que j'ai modifié 😛

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

 

[Fugy]

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

sorry, ça marche pas ...

cela me fait une copie sur des dépannages x20 ??

 

[ChTi160]

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

arff
Salut Fugy 😀

je suis rentré depuis peu

as tu bien modifié la macro comme indiqué ???

je te joins le fichier

Le Fichier :Regarde la pièce jointe Planning MaintenanceV2.zip

bonne nuit