Macro
Bonsoir,
Je me heurte à 2 problèmes sur ma macro. Je saisie des infos dans mon 1er onglet qui doivent venir alimenter un tableau par lignes dans l'onglet 2. Sauf que ma macro s'arrête à la 14è colonne. D'autre part, quand je saisie mes nouvelles informations, ça modifie toutes les lignes qui deviennent toutes identiques. Merci d'avance pour votre aide
Sub Macro19()
'
' Macro19 Macro
'
'
Sheets("RECAP").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[-1]C"
Range("B3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[-1]C[3]"
Range("C3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[1]C[2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[2]C[1]"
Range("E3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[4]C"
Range("F3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[6]C[-1]"
Range("G3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[8]C[-2]"
Range("H3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[10]C[-3]"
Range("I3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[11]C[-4]"
Range("J3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[12]C[-5]"
Range("K3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[13]C[-6]"
Range("L3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[15]C[-7]"
Range("M3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[17]C[-8]"
Range("N3").Select
ActiveCell.FormulaR1C1 = "='SAISIE DU JOUR'!R[19]C[-9]"
End Sub
Bonjour Jean Eric
C'est tout à fait ça, sauf une petite chose. Il faudrait que les lignes s'incrémentent de bas en haut de façon à avoir la ligne la plus récente en 1ère ligne.
Merci de ton aide
Bonjour,
La mise à jour avec un tri descendant en fin de procédure.
Cdlt.
Bonjour Jean Eric,
C'est parfait pour l'incrémentation comme ça j'ai la date la plus récente en haut
J'ai 2 petites questions : concernant la date.... est ce que c'est obligé quelle soit en format "aujourd'hui" ? car je préfère changer la date moi même chaque jour. Pour le tableau, j'ai voulu changer le format du tableau et enlever "mettre sous forme de tableau" mais la macro ne fonctionne pas. Est il possible d'avoir le tableau sans ce format tableau ?
La dernière chose... est que j'ai créé mon tableau avec mise en forme, avec des couleurs etc, et j'ai voulu copier/coller le code VBA sur mon nouveau tableau et la macro n'a pas fonctionné et je comprend pas pourquoi.
Encore merci beaucoup pour me consacrer de ton temps à me venir en aide.
Cdlt
Re,
Pour la date, supprime la formule en saisissant la date voulue.
Pour quelle raison veux-tu convertir le tableau en plage ?
Tu conserves tout (mises en forme des cellules, les formules) car il est dynamique.
Cdlt.
OK pour la date et pour le tableau sous ce format. Par contre je n'arrive plus a faire tourner la macro. Peux tu voir ou ça pêche ?Je te joint mon fichier sur lequel je dois travailler pour 2019.
Merci
Re,
Ton fichier en retour.
Il va falloir faire un petit effort pour comprendre la procédure VBA.
Les données à transférer étaient en colonne 5 et maintenant en colonne 4 !...
Cdlt.
Bonsoir Jean Eric,
Mais j'en fait des efforts
Sinon la macro ne tourne plus et la date n'apparait plus
Merci de ton aide précieuse
Je te remercie infiniment
Cdlt