XL 2016 Copier/coller automatiquement des colonnes d'une feuille vers une autre feuille avec avec l'élément Range

leregalgourmand · 19 Janvier 2021

Bonjour à tous,

Je bute depuis sur un soucis de l'élément Range. En effet, je désire copier automatiquement et coller des colonnes de la feuille 1 dans des colonnes de la feuille 2 ou 3 etc...de manière à ce que chaque fois que j'apporte des modifications dans les colonnes sources de la feuille 1, elles puissent aussi apparaître telles quelles dans les colonnes cibles de manière à reproduire exactement le même texte tel qu'il apparaît dans les colonnes sources.

J'ai essayé avec le code VBA dans la pièce jointe.
Pouvez vous m'aider à améliorer le code ?
Au début ça a marché, mais après ça ne fonctionne plus. J'ai un message d'erreur 450 et une MsgBox qui dit affiche : erreur d'exécution 450 Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Et le débogage me met la ligne du Set myRange en jaune.
Je ne vois pas d'où provient l'erreur. Pouvez vous m'aider ??
Cordialement

Jacky67 · 20 Janvier 2021

leregalgourmand à dit:
Rebonjour a tous,

J'ai vraiment apprécié votre soutien et surtout la rapidité avec laquelle vous l'avez fait. Merci pour vos suggestions. Vos propositions de code dont le travail. Sauf que je veux en fait compliquer la chose. L'objectif c'est d'avoir une bonne compilation pour réaliser cette copie automatique de plusieurs colonnes pas forcément suivantes comme "A:C" mais du genre :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim myRange As Range Set myRange = Sheets("premier"').Range ("A:A", "B:B", "C:C","E:E")'les colonnes à copier' If Not Intersect(Target, myRange) Is Nothing Then myRange.Copy Destination:=Sheets("deuxième").Range("C:C", "D:D", "E:E", "G:G") End If...

Oliver77 · 20 Janvier 2021

Salut,

Avec une formule telle que recherchev c'est possible.
Ou alors Index/Equiv.

Par contre ton fichier manque de données si vraiment tu veux l'adapter à un projet en cours.

Bonne continuation

Jacky67 · 20 Janvier 2021

leregalgourmand à dit:
Bonjour à tous,

Je bute depuis sur un soucis de l'élément Range. En effet, je désire copier automatiquement et coller des colonnes de la feuille 1 dans des colonnes de la feuille 2 ou 3 etc...de manière à ce que chaque fois que j'apporte des modifications dans les colonnes sources de la feuille 1, elles puissent aussi apparaître telles quelles dans les colonnes cibles de manière à reproduire exactement le même texte tel qu'il apparaît dans les colonnes sources.

J'ai essayé avec le code VBA dans la pièce jointe.
Pouvez vous m'aider à améliorer le code ?
Au début ça a marché, mais après ça ne fonctionne plus. J'ai un message d'erreur 450 et une MsgBox qui dit affiche : erreur d'exécution 450 Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Et le débogage me met la ligne du Set myRange en jaune.
Je ne vois pas d'où provient l'erreur. Pouvez vous m'aider ??
Cordialement

Bonjour à tous
Entres autres
Il y a une faute de frappe dans l'instruction
Sub Worksheet_SelectioChange(ByVal Target As Range)
Sub Worksheet_SelectionChange(ByVal Target As Range)

Une proposition en PJ avec ce code dans le module de la feuille "deuxieme"
Se met à jour à l'activation de la feuille "deuxieme"

VB:

Private Sub Worksheet_Activate()
    premier.Columns("A:C").Copy [A1]
End Sub

Phil69970 · 20 Janvier 2021

Bonjour à tous

Une autre solution :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set myRange = Sheets("premier").[A:C]
Set myRange1 = Sheets("deuxieme").[A:C]

If Not Application.Intersect(Target, Range("A:C")) Is Nothing Then
    myRange.Copy Destination:=myRange1
End If

Set myRange = Nothing
Set myRange1 = Nothing

End Sub

@Phil69970

leregalgourmand · 20 Janvier 2021

Phil69970 à dit:

Bonjour à tous

Une autre solution :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set myRange = Sheets("premier").[A:C]
Set myRange1 = Sheets("deuxieme").[A:C]

If Not Application.Intersect(Target, Range("A:C")) Is Nothing Then
    myRange.Copy Destination:=myRange1
End If

Set myRange = Nothing
Set myRange1 = Nothing

End Sub

@Phil69970

Bonjour Phil69970,
J'ai essayé ta proposition, mais j'ai toujours une erreur au débogage :

VB:

If Not Application.Intersect(Target, myRange("AC")) Is Nothing Then
myRange.Copy Destination:=myRange1

Ne passe pas. Toujours en jaune au débogage.

Je vais essayer une autre solution
Merci beaucoup

mutzik · 20 Janvier 2021

Bjr, il te manque le ':' entre A et C

leregalgourmand · 20 Janvier 2021

mutzik à dit:
Bjr, il te manque le ':' entre A et C

Bonjour mutzic
C'est vrai sur le forum. Mais je reprends :

VB:

If Not Application.Intersect(Target, myRange("A:C")) Is Nothing Then
myRange.Copy Destination:=myRange1

Sur mon programme c'est bien écrit avec les " :". Donc c'est lors de la saisie ici sur le forum que j'ai oublié les 2 points.

Donc mon problème demeure toujours bien entendu.

leregalgourmand · 20 Janvier 2021

Rebonjour a tous,

J'ai vraiment apprécié votre soutien et surtout la rapidité avec laquelle vous l'avez fait. Merci pour vos suggestions. Vos propositions de code dont le travail. Sauf que je veux en fait compliquer la chose. L'objectif c'est d'avoir une bonne compilation pour réaliser cette copie automatique de plusieurs colonnes pas forcément suivantes comme "A:C" mais du genre :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim myRange As Range
Set myRange = Sheets("premier"').Range ("A:A", "B:B", "C:C","E:E")'les colonnes à copier'
If Not Intersect(Target, myRange) Is Nothing Then
myRange.Copy Destination:=Sheets("deuxième").Range("C:C", "D:D", "E:E", "G:G")
End If

Application.SreenUpdating = True
End Sub

Voilà ci dessus les manipulations que je veux pouvoir faire sur toute feuille que je désire.. Merci d'avance pour votre aide. En fait ma compilation n'est pas la bonne. Ou alors comment modifier le code proposé par Phil69970 pour y arriver où celui de Jacky67 qui me semble très simple et léger.

Cordialement

Jacky67 · 20 Janvier 2021

leregalgourmand à dit:
Rebonjour a tous,

J'ai vraiment apprécié votre soutien et surtout la rapidité avec laquelle vous l'avez fait. Merci pour vos suggestions. Vos propositions de code dont le travail. Sauf que je veux en fait compliquer la chose. L'objectif c'est d'avoir une bonne compilation pour réaliser cette copie automatique de plusieurs colonnes pas forcément suivantes comme "A:C" mais du genre :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim myRange As Range Set myRange = Sheets("premier"').Range ("A:A", "B:B", "C:C","E:E")'les colonnes à copier' If Not Intersect(Target, myRange) Is Nothing Then myRange.Copy Destination:=Sheets("deuxième").Range("C:C", "D:D", "E:E", "G:G") End If Application.SreenUpdating = True End Sub

Voilà ci dessus les manipulations que je veux pouvoir faire sur toute feuille que je désire.. Merci d'avance pour votre aide. En fait ma compilation n'est pas la bonne. Ou alors comment modifier le code proposé par Phil69970 pour y arriver où celui de Jacky67 qui me semble très simple et léger.

Cordialement

RE..
Si les colonnes source sont différentes des colonnes destination et discontinues, il faudra s'y prendre en plusieurs fois
Une piste....

VB:

Private Sub Worksheet_Activate()
premier.[A:C].Copy [c1]
premier.[e:e].Copy [g1]
End Sub

Phil69970 · 20 Janvier 2021

Re, Le fil

Si tu prends le fichier que j'ai mis ici tu t'apercevras que ce que tu as demandé fonctionne.
Et si tu copie comme il faut mon code tu t'apercevras que cela fonctionne aussi (Normal c'est ce que j'ai écrit à l’intérieur du fichier !)

@Phil69970

leregalgourmand · 20 Janvier 2021

Rebonjour à tous,

Merci beaucoup à vous tous pour vos propositions instructives et très pratiques. La proposition de l'élément Range de Phil69970 est très intéressante quandled colonnes se suivent comme A,B,C et la destination ou la cible est constituée de colonnes qui se suivent. La proposition de Jacky67 est également génial dans ce cas de figure avec une grande simplicité. Voilà mon problème à ce niveau. En fait, je veux pouvoir faire cette opération sur des colonnes aléatoires aussi sur la feuille 2 ou 3 avec la mise en forme source. Voir l'exemple dans le code suivant :

VB:

Private Sub Worksheet_Activate()
premier.Columns("A:C").Copy [C1]
premier.Columns("E").Copy [G1]
premier.Columns("H").Copy [I1]
End Sub

Ce code est parfait je l'ai testé et je l'utilise.
Merci encore à vous tous

XL 2016 Copier/coller automatiquement des colonnes d'une feuille vers une autre feuille avec avec l'élément Range

leregalgourmand

XLDnaute Nouveau

Pièces jointes

Jacky67

Oliver77

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

leregalgourmand

XLDnaute Nouveau

mutzik

XLDnaute Barbatruc

leregalgourmand

XLDnaute Nouveau

leregalgourmand

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

leregalgourmand

XLDnaute Nouveau

Discussions similaires