XL 2019 Copie de tableau à l'identique sans condition

[Isa17]

Bonjour,

C'est la première fois que je poste et toutes les questions me paraissent bien complexes mais je viens avec ma petite anomalie.

Bon, je saisi des informations dans l'onglet1, de A à J.
Je souhaite simplement que toutes ces informations soient copiées dans l'onglet2, et que je puisse ensuite compléter dans ce nouvel onglet les colonnes K à R.
Mais avec ma formule "=Tableau4[@[N° Facture Manuf]] ; si je veux supprimer ou ajouter une ligne dans l'onglet 1, alors tout se décale dans l'onglet2 (colonnes K à R)

Idem si ce sont 2 tableaux différents.

Merci beaucoup pour votre temps et vote expérience.
Isa

 

[job75]

Bonjour Isa17, bienvenue sur XLD,

C'est forcément compliqué d'utiliser un 2ème onglet que l'on complète.

Il vaut mieux compléter directement le 1er onglet.

A+

 

[job75]

En fait ce n'est pas forcément compliqué, voyez le fichier joint et le code du 2ème onglet :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)
[A1].CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlNo 'supprime les lignes en doublon
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

La macro se déclenche automatiquement quand on active la feuille.

 

[cathodique]

En fait ce n'est pas forcément compliqué, voyez le fichier joint et le code du 2ème onglet :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)
[A1].CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlNo 'supprime les lignes en doublon
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

La macro se déclenche automatiquement quand on active la feuille.

Bonjour @Isa17 , @job75 ,

@Isa17 : excuses mon intrusion

@job75 : Stp que signifie le chiffre '2' qui se trouve à a fin de la ligne de code ci-dessous

Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)

Merci beaucoup
Bon week-end

 

[job75]

Bonjour isa17, cathodique, le forum,

@job75 : Stp que signifie le chiffre '2' qui se trouve à a fin de la ligne de code ci-dessous

Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)

a étant une cellule a(x, y) fonctionne comme Cells(x, y).

a(2, 1) ou a(2) représentent la cellule située en dessous de a.

a(1, 2) représente la cellule située à droite de a.

A+

 

[cathodique]

Bonjour isa17, cathodique, le forum,

a étant une cellule a(x, y) fonctionne comme Cells(x, y).

a(2, 1) ou a(2) représentent la cellule située en dessous de a.

a(1, 2) représente la cellule située à droite de a.

A+

Avec tous mes remerciements. C'est très clair.

Bon week-end.

 

[Isa17]

En fait ce n'est pas forcément compliqué, voyez le fichier joint et le code du 2ème onglet :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)
[A1].CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlNo 'supprime les lignes en doublon
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

La macro se déclenche automatiquement quand on active la feuille.

Bonjour @job75,

Merci beaucoup.
Cependant, je suis incapable de reproduire moi-même cette formule magique qui pourrait me sauver.
Je vais regarder ça et je te dirais si j'ai besoin d'une modif .

@cathodique : si mes interrogations peuvent aider .... je t'en prie !
Bonne journée à vous.
Isa

 

[Isa17]

@job75 re bonjour,

Je suppose que ce code :
Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)
indique qu'il faut que les informations du 1er onglet s'ajoute à la fin des lignes disponibles dans le 2è onglet ?
Au contraire, j'ai besoin qu'en cas de changement ou d'ajout, les 2 onglets soient identiques pour la partie commune et que la partie complétée manuellement suive l'ajout ou la suppression de ligne.
pour l'instant, des lignes s'ajoutent à chaque modification.

Merci encore
Bon courage
Isa

 

[job75]

Bonjour Isa17, le forum,

Ce qu'il faut bien comprendre c'est que dans Onglet2 les colonnes K à R sont modifiables manuellement.

Et que ces modifications seront ensuite conservées.

Maintenant on peut toujours trier le tableau sur la ou les colonnes que l'on veut.

A+