XL 2019 Demande aide remplissage automatique des colonnes

Fidmo · 21 Mai 2024

Bonjour à toutes & à tous.
N'ayant aucune connaissance en Vba je m'adresse ainsi aux professionnels en la matière pour demander une aide en joignant en pièce jointe mon fichier. Voilà ma demande:
1) - Pour l'onglet TVA je souhaite que:
Les colonnes B-C-D-E-F-G-H-I-J-K-L-M-N-O de l'onglet TVA soient renseignées par les valeurs des colonnes B-C-D-E-F-G-H-I-J-K-L-M-N-O de l'onglet TVA (2)
2) - Pour l'onglet ENCAISSEMENTS je souhaite que:
Les colonnes A-B-C-D-E-F-G-H-I de l'onglet ENCAISSEMENTS soient renseignées par les valeurs des colonnes A-B-C-D-E-F-G-H-I de l'onglet ENCAIS
Et mille mercis pour nos experts.
Fidmo

chris · 21 Mai 2024

Bonjour

L'intérêt de dupliquer un tableau est rarement vérifié.

Quel est le contexte ?

Fidmo · 21 Mai 2024

chris à dit:
Bonjour

L'intérêt de dupliquer une tableau est rarement vérifié.

Quel est le contexte ?

Bonsoir chris,
Je ne comprend pas votre question.

chris · 21 Mai 2024

Re
Tu demandes à dupliquer TVA(2) dans TVA et ENCAISS dans ENCAISSEMENTS

Pourquoi ?

Fidmo · 22 Mai 2024

Re,
Mon fichier est un gabarit que j’utilise dans mon logiciel et ce dernier n'accepte pas de formules dans TVA(2) et ENCAISSEMENTS. D'habitude je fais copie-collé mais c'est un travail fatiguant avec les risques d’erreurs.
Je pense que j'étais un peu clair., et d'avance je vous remercie si vous pouvez m'apporter une aide.
Fidmo

Dranreb · 22 Mai 2024

Bonjour.
Il n'y a pas de formule dans les colonnes que vous demandez à copier/coller par valeurs.
S'il venait à y en avoir, ne suffirait-il pas de garder une seule feuille de chaque mais avec une macro qui remet les formules et une autre qui les fige en valeurs constantes ?

Dranreb · 22 Mai 2024

Cela dit vous pourriez mettre dans le module Feui1 (TVA) :

VB:

Option Explicit
Private Sub Worksheet_Activate()
   Me.ListObjects(1).ListColumns(2).DataBodyRange.Resize(, 14).Value = _
      Worksheets("TVA (2)").ListObjects(1).ListColumns(2).DataBodyRange.Resize(, 14).Value
   End Sub

et dans le module Feuil3 (ENCAISSEMENT) :

Code:

Option Explicit
Private Sub Worksheet_Activate()
   Me.[A10:I61].Value = Worksheets("ENCAIS").[A10:I61].Value
   End Sub

Faites un clic droit sur les onglets concernés et commande Visualiser le code pour atteindre directement ces modules.

chris · 22 Mai 2024

Bonjour
Une requête PowerQuery peut également faire cela sans VBA en quelques clics

Fidmo · 22 Mai 2024

Dranreb à dit:
Cela dit vous pourriez mettre dans le module Feui1 (TVA) :

VB:

Option Explicit Private Sub Worksheet_Activate() Me.ListObjects(1).ListColumns(2).DataBodyRange.Resize(, 14).Value = _ Worksheets("TVA (2)").ListObjects(1).ListColumns(2).DataBodyRange.Resize(, 14).Value End Sub

et dans le module Feuil3 (ENCAISSEMENT) :

Code:

Option Explicit Private Sub Worksheet_Activate() Me.[A10:I61].Value = Worksheets("ENCAIS").[A10:I61].Value End Sub

Faites un clic droit sur les onglets concernés et commande Visualiser le code pour atteindre directement ces modules.

Bonjour Dranreb,
Mille mercis pour votre intéressement et votre savoir. Cependant, il faut vous dire que je suis nul en Vba et visiblement je n'ai pas les connaissances, c'est trop loin. Auriez-vous l'obligeance de me joindre mon document tout fait. Je demande votre indulgence. Et encore une fois mille Merci.
Fidmo

Dranreb · 22 Mai 2024

Quel problème avez vous eu après clic droit sur l'onglet TVA et commande Visualiser le code ?
Il suffisait alors de copier le 1er code de mon message dans le presse papier puis de le coller dans la fenêtre de code.

Fidmo · 22 Mai 2024

Dranreb à dit:
Quel problème avez vous eu après clic droit sur l'onglet TVA et commande Visualiser le code ?
Il suffisait alors de copier le 1er code de mon message dans le presse papier puis de le coller dans la fenêtre de code.

Re Cher Dranreb,
Plus de problème enfin ! Un ami m'a aidé et m'a montré comment utiliser vos codes qui marchent à merveille. Je suis tré heureux Cher Dranreb. Un million de mercis.
Fidmo

XL 2019 Demande aide remplissage automatique des colonnes

Fidmo

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

Fidmo

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Fidmo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Fidmo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Fidmo

XLDnaute Occasionnel

Discussions similaires