Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro pour recopie de tableaux nommés

macro pour recopie de tableaux nommés

1 réponse
Avatar
Sanjiv
Bonsoir à tous

Novice sur Excel et VBa, je sollicite votre aide pour mettre au point une macro
Celle-ci doit me permettre de recopier 2 tableaux nommés (même format mais tailles différentes), dans un troisième tableau
Dans ce dernier, les dates - crière de tri - doivent être triées
et en cas de doublons, seules les lignes du 1er tableau sont conservés, à l'exclusion des lignes vides
Enfin noter que le tablau résulat est sur une feuille distincte et je souhaite y trouver seulent les valeurs et pas les formules d'origine

J'ai glané ici et là des bribes de code que j'ai assemblé au mieux, mais à l'exécution, en modepas à pas, je bloque de le début.

Merci par avances aux "excelistes" et "VBistes" qui voudront bient me faire partager leur expérience

A

------------------------
Dates Commentair
------------------------
date1 eeeeee
date2 hhhh
date4 iiiiiii

date6 mmmm
date9 bb


Sub FusionListes(

L = Sheets("feuil3").Range("TABLO1").End(xlUp).Ro
M = Sheets("feuil3").Range("TABLO1").End(xlUp).Ro
N = Sheets("feuil4").Range("TABLO1").End(xlUp).Ro

For i = 1 To
For j = 1 To
For k = 1 To
'Si les dates sont les mêmes forcer commentaire Tablo
If Sheets("feuil3").Cells(i, 1).Value = Sheets("feuil3").Cells(j, 1).Value The
Sheets("feuil4").Cells(k, 1).Value = Sheets("feuil3").Cells(i, 1).Valu
Sheets("feuil4").Cells(k, 2).Value = Sheets("feuil3").Cells(i, 2).Valu
Els
'Si les dates sont différentes interclasser les 2 date
If Sheets("feuil3").Cells(i, 1).Value < Sheets("feuil3").Cells(j, 1).Value The
Sheets("feuil4").Cells(k, 1).Value = Sheets("feuil3").Cells(i, 1).Valu
Sheets("feuil4").Cells(k, 2).Value = Sheets("feuil3").Cells(i, 2).Valu
' j = j -
Els
Sheets("feuil4").Cells(k, 1).Value = Sheets("feuil3").Cells(j, 1).Valu
Sheets("feuil4").Cells(k, 2).Value = Sheets("feuil3").Cells(j, 2).Valu
' i = i -
End I
End I
Nex
Nex
Nex
End Su

--
Sanjiv

-----------------------------------------------------------------------
Voir theme: http://www.frbox.net/viewtopic-488135.htm

Envoyé de http://www.frbox.ne
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
Bonjour à toutes à tous et à Sanjiv qui nous a tapoter de ses petits
doigt ce qui suit :

Bonsoir à tous.

Novice sur Excel et VBa, je sollicite votre aide pour mettre au point une
macro. Celle-ci doit me permettre de recopier 2 tableaux nommés (même format
mais tailles différentes), dans un troisième tableau. Dans ce dernier, les
dates - crière de tri - doivent être triées, et en cas de doublons, seules
les lignes du 1er tableau sont conservés, à l'exclusion des lignes vides.
Enfin noter que le tablau résulat est sur une feuille distincte et je
souhaite y trouver seulent les valeurs et pas les formules d'origine.

J'ai glané ici et là des bribes de code que j'ai assemblé au mieux, mais à
l'exécution, en modepas à pas, je bloque de le début.

Merci par avances aux "excelistes" et "VBistes" qui voudront bient me faire
partager leur expérience.

A+

-------------------------
Dates Commentaire
-------------------------
date1 eeeeeee
date2 hhhhh
date4 iiiiiii

date6 mmmmm
date9 bbb



Sub FusionListes()
'
L = Sheets("feuil3").Range("TABLO1").End(xlUp).Row
M = Sheets("feuil3").Range("TABLO1").End(xlUp).Row
N = Sheets("feuil4").Range("TABLO1").End(xlUp).Row


For i = 1 To L
For j = 1 To M
For k = 1 To N
'Si les dates sont les mêmes forcer commentaire Tablo1
If Sheets("feuil3").Cells(i, 1).Value = Sheets("feuil3").Cells(j,
1).Value Then Sheets("feuil4").Cells(k, 1).Value =
Sheets("feuil3").Cells(i, 1).Value Sheets("feuil4").Cells(k, 2).Value
= Sheets("feuil3").Cells(i, 2).Value Else
'Si les dates sont différentes interclasser les 2 dates
If Sheets("feuil3").Cells(i, 1).Value < Sheets("feuil3").Cells(j,
1).Value Then Sheets("feuil4").Cells(k, 1).Value =
Sheets("feuil3").Cells(i, 1).Value Sheets("feuil4").Cells(k,
2).Value = Sheets("feuil3").Cells(i, 2).Value ' j = j - 1
Else
Sheets("feuil4").Cells(k, 1).Value = Sheets("feuil3").Cells(j,
1).Value Sheets("feuil4").Cells(k, 2).Value =
Sheets("feuil3").Cells(j, 2).Value ' i = i - 1
End If
End If
Next
Next
Next
End Sub


Apparement, tu a creer 3 tableaux avec le meme nom !! c'est une erreur
d'ecriture ou c'est ce que tu as reellement fait ?
IF "c'est une erreur"
je regarde plus avant
ELSE
cange les noms et reessaye
END IF
lol :oÞ
Sans blagues, je regarde plus avant
JLuc

--
Pour m'ecrire directement :

Tomorrow is another day