Macro VBA dupliquer colonnes

Bonjour

Difficile de t'aider sans avoir l'exemple de ton fichier avec son tableau !
Exemple à poster sur mon-partage.fr, faire créer un lien, le copier et revenir le coller ici

Cdlmnt
Via

J'ai commencé à regarder
Où veux tu dupliquer x fois ton tableau, à la suite du 1er (à droite) ou en dessous ?
Pour une application de la macro ce sera plus facile si on copie en dessous les lignes 10 à 31
Si tu es OK je commence à regarder pour la copie en x exemplaires en dessous et après on verra pour faire effectuer la macro de conversion sur chaque tableau au clic sur un seul bouton

Tout est possible ou presque !
Mais je n'arrive pas à comprendre d'après ton message initial tu parles de dupliquer toutes les colonnes de C à J
et apparemment tu voudrais que les copies s'intercalent, la nouvelle C s’intercalerait avant la D et deviendrait donc la D, l'ancienne D deviendrait E et sa copie s'intercalerait après elle en F, la F devenant G etc ?
Si il y a 3 échantillons la 2eme copie de la C s'intercalerait entre D et E, devenant la nouvelle colonne E etc
Confirme moi que c'est bien cela

Combien peut il y avoir d'échantillons à traiter au maximum ?

On va essayer comme cela c'est plus simple que les colonnes de résultats où sont à rentrer les données soient côte à côtes et non dispersées
Certaines cellules n'ont pas de formules (col E F G) et ne sont pas à remplir par l'utilisateur, donc je pense que c'est toi qui les remplis avant à chaque fois ?

Par contre ce qui serait plus judicieux c'est que les colonnes reports qui sont à copier et coller dans une autre feuille soient après les colonnes résultats au lieu d'être tout à droite et que les colonnes entre Résultats et Report sur lesquelles l'utilisateur n'a pas à intervenir soient masquées
Qu'en pense tu ?

Pour le nombre de prélèvements la seule limite c'est le nombre de colonnes d'une feuille Excel et comme il y en a plus de 16 000 depuis la version 2007 ! La vraie limite c'est le poids du fichier en fait

Je te fais un retour dès que possible

Ok je regarde ça ce soir

Re

Macro duplication fonctionnelle

Par contre je ne suis pas arrivé à faire fonctionner ta macro conversion ^correctement en même temps
Je l'ai donc supprimée et remplacée par des formules dans les cellules (du coup ça fait moins de colonnes intermédiaires) et ça fait une manip de moins pour l'utilisateur

Dans le fichier tu as donc une feuille modele vierge avec les formules et la macro duplication (à concerver toujours intacte)
1) tu copies fais créer une copie du modèle
2) la feuille est protégée (mais sans mot de passe), les utilisateurs n'ont accès qu'aux cellules en bleu pour enter des données,
toi tu déprotèges la feuille, tu rentre le nombre d'échantillons à traiter et tu reprotèges la feuille (sans mot de passe) - si tu veux on pourra en mettre un mais il faudra aussi le mettre dans la macro qui déprotège avant la duplication et en fin de duplication
3) Tu lances la macro duplication , les colonnes sont dupliquées puis les colonnes intermédiaires masquées et la feuille reprotégée, la feuille est prête pour utilisation

https://mon-partage.fr/f/gWb50Po7/

En espérant que ça correspond à tes attentes

Bonjour

Bizarre ! Je viens de retelecharger le fichier depuis mon partage et j'ai bien la macro !
La voici :

Sub duplication()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
nbcol = Range("B2") - 1
coldep = 3
colfin = coldep + nbcol
'colonnes resultats
x = 1
    For n = coldep To colfin - 1
    x = x + 1
    Range(Cells(10, n), Cells(31, n)).Select
    Selection.Copy
    Cells(10, n + 1).Select
    Selection.Insert Shift:=xlToRight
    Selection.ColumnWidth = 27
     Cells(11, n + 1) = "RESULTATS LABORATOIRE " & x
    Next n
    coldep = colfin + 1
    colfin = coldep + nbcol
    masque1 = coldep
'colonnes intermediaires
 For w = 1 To 4
        For n = coldep To colfin - 1
        Range(Cells(10, n), Cells(31, n)).Select
        Selection.Copy
        Cells(10, n + 1).Select
        Selection.Insert Shift:=xlToRight
        Next n
    masque2 = colfin
    coldep = colfin + 1
    colfin = coldep + nbcol
Next w
'colonnes report
x = 1
For n = coldep To colfin - 1
x = x + 1
        Range(Cells(10, n), Cells(31, n)).Select
        Selection.ColumnWidth = 25
        Selection.Copy
        Cells(10, n + 1).Select
        Selection.Insert Shift:=xlToRight
        Selection.ColumnWidth = 25
        Cells(11, n + 1) = "REPORT TABLEAU " & x
    Next n
    
 'masquage colonnes
For a = masque1 To masque2
 Columns(a).Select
Selection.EntireColumn.Hidden = True
Next a
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub

Bonjour

Bien
Oui la feuille est un modèle avec une colonne pour chaque calcul avec les formules, il faut donc bien une fois la duplication et le copiage des tableaux faits bien fermer le fichier sans l'enregistrer puis le rouvrir pour un nouveau traitement

Bonjour

Pour l'instant tu m'a juste envoyé une table avec les éléments et les seuils mais je ne sais ni comment se présente les résultats d'analyse ni si on doit employer les même formules que la dernière fois etc

Prépare moi une feuille de résultat bâtie comme le modèle que tu m'as renvoyé avec un exemple de résultats dans la colonne Résultats Laboratoire 1 et les colonnes nécessaires : valeurs mini, maxi ... et les valeurs attendues

Cdlmnt
Via