XL 2019 réduire vba

sylvanu à dit:

Bonsoir Quicksland, Phil,
En utilisant un array, on peut réduire la taille :

VB:

Sub Données()
    ' Tableau est organisé avec Plage à écrire, virgule, Plage à lire
    Tablo = Array("I2:I4", "B13", "I5:I6", "E14", "F7:I8", "M6", "H9:I10", "E15", _
                "H11:I12", "E16", "D5:E6", "E10", "D21:G21", "I3", "Q2:Q4", "B19", _
                "Q5:Q6", "E20", "N7:Q8", "M6", "P9:Q10", "E21", "P11:Q12", "E22", _
                "L5:M6", "E10", "L21:O21", "I3", "Y2:Y4", "B25", "Y5:Y6", "E26", _
                "V7:Y8", "M6", "X9:Y10", "E27", "X11:Y12", "E28", "T5:U6", "E10", _
                "T21:W21", "I3", "AG2:AG4", "B31", "AG5:AG6", "E32", "AD7:AG8", _
                "M6", "AF9:AG10", "E33", "AF11:AG12", "E34", "AB5:AC6", "E10", _
                "AB21:AE21", "I3")
    Set Chemin = Workbooks("1 CAMUS LA RIBAMBELLE 1.xlsm").Worksheets("PRINTEMPS")
    For i = 0 To UBound(Tablo) Step 2
        Range(Tablo(i)).FormulaR1C1 = Chemin.Range(Tablo(i + 1))
    Next i
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Attention, les adresses sont de type B13 et non R13C2.
Et vérifier bien les sources et destination, il se peut qu'il y ait des erreurs.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
En lisant votre réponse j'ai vu une maladresse dans le code, le formulaR1C1 ne sert évidemment plus à rien puisqu'on colle la valeur,
Donc vous pouvez mettre simplement :

VB:

Range(Tablo(i)) = Chemin.Range(Tablo(i + 1))

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
1- Le VBA ne supporte pas les approximations.
Votre fichier s'appelle : "1 CAMUS LA RIBAMBELLE 1.xlsm" et non pas "1 CAMUS LA RIBAMBELLE 1.xlsm"
Votre onglet s'appelle : "PRINTEMPS " et non pas "PRINTEMPS"
Le mieux est de virer ces espaces superflus, double espace dans le nom, espace à la fin du nom de l'onglet, c'est une maladresse qui généralement est très chronophage pour débusquer les erreurs car les espaces sont visuellement invisibles.
2- Ensuite, tel qu'écrit il demande un bouton.
Ensuite tout dépend de votre contexte. Le faire en automatique à la sélection d'un onglets fera que vous l'exécuterez à chaque fois. Est ce nécessaire ?
On peut aussi faire une seule fois la mise à jour de tous les onglets à l'ouverture du fichier.
Tout ça dépends de vous, même on sort du titre de ce fil, car c'est un autre problème.
En PJ j'ai juste corriger Mardi, avec accès macro par bouton pour test, pour vérifier que la macro passe sans planter.

Cliquez pour agrandir...

sylvanu à dit:

Re,
La macro en Feuil1 n'est qu'un résidu de travail, totalement inutile. C'tait juste un fichier de test.
Le " _" n'est qu'un retour à la ligne pour améliorer la lisibilité. Vous pourriez même mettre tout sur une ligne, ça n'a aucune importance.
Quand aux noms des macros, il est sans aucune importance pour des macros "normales".
Pour d'autres dites événementielles elles doivent absolument porter un nom qu'XL reconnait.
Pour que la macro s'exécute à l'ouverture du fichier, vous mettez dans le dossier ThisWorkbook la macro suivante :

VB:

Private Sub Workbook_Open()
     ' Votre Code Macro
End Sub

Elle sera exécuter à l'ouverture. Attention le nom Workbook_Open ne doit pas être modifié, il doit impérativement s'appeler ainsi, ce qui permet à XL de savoir ce qu'il doit exécuter en automatique.
Ainsi vous avez aussi à la fermeture du fichier le même type de macro :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     ' Votre Code Macro
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
1- Je ne comprends pas, vous mettez la solution retenue en post #2 mais vous utilisez le code du post #4, le futur lecteur va s'y perdre.
2- Comme je vous l'ai dit, votre nouvelle problématique n'a rien çà voir avec le titre de ce post : "réduire VBA"
Donc créez un nouveau post. XLD est aussi une formidable base de données, cela suppose qu'un fil ne mélange pas plusieurs problèmes, sinon le futur lecteur ne pourra pas faire de recherche sur ce nouveau problème.

Cliquez pour agrandir...