Dupliquer données d'un onglet

[aubelix]

Bonsoir à tous.

Mon problème est le suivant: j'aurais voulu dupliquer des données entrées d'une
feuille vers une autre. Que la mise à jour se fasse automatiquement.
Et qu'elles disparaissent lorsque les lignes sont archivées.
Fichier joint pour plus de clarté.
Par avance merci pour votre aide.
Cordialement.

 

[Cousinhub]

Re : Dupliquer données d'un onglet

Bonsoir,
après quelques tontes de cheveux et autres prises de têtes, voici ton fichier.
J'ai surtout été embêté par les noms que tu avais inséré, ces noms me gênant dans l'extraction par filtre élaboré...
Le principe :
1/ je n'ai pas touché à ta macro d'archivage, tu peux toujours l'utiliser
2/ lorsque tu rentres une nouvelle ligne, tant que les 3 premières colonnes ne sont pas remplies, rien ne se passe. Dès que tu as rentré les 3 données (3 premières colonnes), automatiquement les lignes non "TERMINEES" se copient dans l'onglet POSITION

Regarde le fichier joint, et reviens si tu veux de plus amples explications

 

[gbinforme]

Re : Dupliquer données d'un onglet

bonsoir aubelix, le forum,

Mon problème est le suivant: j'aurais voulu dupliquer des données entrées d'une feuille vers une autre. Que la mise à jour se fasse automatiquement.

C'est la fonction que je t'ai rajoutée dans ton fichier : toute modification dans les 3 colonnes est reportée.

Et qu'elles disparaissent lorsque les lignes sont archivées.

Il faut rajouter la fonction dans ta macro d'archivage.

 

[aubelix]

Re : Dupliquer données d'un onglet

Un bonjour matinal à tous et à bhbh et gbinforme en particulier.
Merci pour vos réponses et de l'intérêt que vous avez porté à mon problème.
J'ai essayé les 2 solutions.
bhbh, cela fonctionne, mais l'archivage dans "POSITION", je ne sais pas comment le faire.
Si archivage, comment supprimer dans "POSITION" les données dupliquées qui ont été archivées.
Pour gbinforme, les données sont bien dupliquées, mais lorsque j'archive, j'ai un message d'erreur :
Erreur d'éxécution 13 - Incompatibilité de type.
Par avance merci pour votre aide.
Bonne journée à tous

 

[gbinforme]

Re : Dupliquer données d'un onglet

bonjour aubelix, bhbh, le forum,

les données sont bien dupliquées, mais lorsque j'archive, j'ai un message d'erreur : Erreur d'éxécution 13 - Incompatibilité de type.

Effectivement j'ai pensé à cela hier soir et ce qu'il faut changer c'est ceci :

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
    valini = Cells(sel.Row, sel.Column).Value
End Sub

@+

 

[Cousinhub]

Re : Dupliquer données d'un onglet

Bonjour, aubelix, gbinforme, le forum

mais l'archivage dans "POSITION", je ne sais pas comment le faire.

Il se fait automatiquement dès que les 3 premières colonnes sont remplies

Si archivage, comment supprimer dans "POSITION" les données dupliquées qui ont été archivées.

A la fin de ta macro Archiver_Terminees tu mets :

End Select
Call extract <====== cette ligne
End Sub

Bonne journée

 

[aubelix]

Re : Dupliquer données d'un onglet

Un bonjour "ensolleilé" à tout le forum.

Merci pour vos réponses bhbh et gbinformme.
bhbh tout marche à merveille. le problèmes est résolu.
Merci de me commenter à quoi correspondesnt les lignes de codes.

gbinforme, cela fonctionne, mais si on archive les "TERMINEES"
les données ne sont pas supprimées dans "POSITION".

Mille mercis à tous et bon week-end.

 

[Cousinhub]

Re : Dupliquer données d'un onglet

Bonjour aubelix, le forum

le code de l'évènement de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column > 3 Or Target.Count > 1 Then Exit Sub 'si on change dans les colonnes A, B, C
If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 3))) = 3 Then Call extract ' si les trois cellules sont remplies, on appelle la macro extract
Application.ScreenUpdating = True
End Sub

la macro extract :

Sub extract()
Application.ScreenUpdating = False
Sheets("POSITION").Select ' on se positionne sur la feuille de destination
Range("G1").Value = "Formule" 'pour le filtre élaboré, il faut une zone de critères
Range("G2").Formula = "=BASE!O2=""""" ' ici G1:G2 (en G2, on vérifie si une date est rentrée dans la colonne O de la feuille BASE
Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"G1:G2"), CopyToRange:=Range("A1:C1"), Unique:=False ' on fait l'extraction
Range("G1").Value = "" ' on nettoie tout
Range("G2").Value = "" ' Idem
Sheets("BASE").Select
Application.ScreenUpdating = True
End Sub

 

[aubelix]

Re : Dupliquer données d'un onglet

Bonsoir bhbh, gbinforme et le forum.

Merci pour votre aide,
Bonne semaine à tous
Cordialement.