AIDE MACRO JE N'Y ARRIVE PAS

Bonjour

Je suis à la recherche de plusieurs macro :

• ajout de 11 colonnes vierges entre chaque colonne après la colonne A
• renommer toutes ces nouvelles colonnes avec 10 noms différents (stock/designation/maxi/vtes/rel/vm/pb/r%/pn/R%/pn)
• faire une recherche v sur un fichier "qo" mis dans un onglet du même classeur pour chaque colonnes

Merci pour votre aide

Bonjour,

Un petit conseil ... si tu me le permets ... un sujet aprés l'autre ...

cela te permettra d'augmenter tes chances d'avoir des réponses adaptées ....

A titre d'exemple ... pour insérer des colonnes ... as-tu essayé de mettre en marche ton enregistreur de macros ....

Bonsoir,

Salut James !

Sérions les problèmes...

Sub InsertColonnes()
    Dim k%, kk%
    With ActiveSheet
        kk = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Application.ScreenUpdating = False
        For k = kk To 2 Step -1
            .Columns(k).Resize(, 10).Insert
        Next k
    End With
End Sub

Voilà pour opérer l'insertion de colonnes (de façon propre et rapide (et moins contournée que le code obtenu par l'enregistreur... !)

Ensuite cela manque de détails : tu vas nommer tes 10 colonnes plusieurs fois de la même façon ? Et tu donnes 11 noms ? Il faut donc être un peu plus précis.

La mise en place des noms sera intégrée dans la macro d'insertion, on peut faire ça simultanément.

Le dernier volet nécessite que tu fournisses un fichier de façon qu'on sache de quoi il retourne...

Cordialement.

Wouha !!!!

super merci pour cette première macro !

En faite je me suis trompée dans l'énoncé ces 11 colonnes, qu'il faut rajouter. J'ai corrigé la macro que vous m'avez envoyé

Ces 11 colonnes que je viens d'insérer porteront toutes les mêmes intitulés de colonne à savoir : stock/designation/maxi/vtes/rel/vm/pb/r%/pn/R%/pn

Une fois que les intitulés de colonnes apparaissent, je voudrais une macro qui aille chercher dans l'onglet QO toutes les informations nécessaires par rapport à la ref de la colonne précédente. C'est à dire pour la ref en colonne A2 soit AUTGA15116 je veux aller chercher dans le fichier QO son stock / sa designation / son maxi......

Merci

Voilà pour mettre les intitulés de colonnes...

Sub InsertColonnes()
    Dim k%, kk%, Nk
    Nk = Split("stock designation maxi vtes rel vm pb r% pn R% pn")
    With ActiveSheet
        kk = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Application.ScreenUpdating = False
        For k = kk To 2 Step -1
            .Columns(k).Resize(, 11).Insert
            .Cells(1, k).Resize(, 11).Value = Nk
        Next k
    End With
End Sub

Mais il va peut-être y avoir un petit problème : on insère les nouvelles colonnes entre celles existantes, donc les intitulés de colonnes ne sont pas mis après la dernière colonne initiale ... !

Cela peut se rectifier facilement si besoin...

Je n'ai pas encore regardé ton fichier, On verra la suite après manger.

Bon ! Au vu du fichier :

Sub InsertColonnes()
    Dim k%, kk%, Nk
    Nk = Split("stock designation maxi vtes rel vm pb r% pn R% pn")
    With ActiveSheet
        kk = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Application.ScreenUpdating = False
        .Cells(1, kk + 1).Resize(, 11).Value = Nk
        For k = kk To 2 Step -1
            .Columns(k).Resize(, 11).Insert
            .Cells(1, k).Resize(, 11).Value = Nk
        Next k
    End With
End Sub

il semble qu'il faille rajouter une ligne...

Pour la suite on y retrouve pas ses petits ! Informations et fichier à compléter donc.

Mais demain je suis en vol, hors connexion donc !

Merci Mferrand

La macro marche parfaitement.

Je vais essayer de faire la recherchev en version macro...

Je risque de revenir vers vous

Merci