Discussion :

[JojoCout]

Bonjour à tous,
Etant novice (pour ne pas dire ignorant) sur VBA et la programmation en générale, j'en appel à votre savoir-faire.

Voici mon souci:



L'idée est d'insérer une colonne avant la colonne "col_cible", de copier la mise en forme de cette meme colonne qui deviant donc "col_cible + 1" et d'insérer les résultats dans la nouvelle colonne.
je n'ai pas réussi à effectuer cette action avec cells.

Auriez-vous une idée?

D'avance merci.

[Menhir]

Tu devrais copier ton code sous forme de texte, de préférence avec des balises CODE (l'icone # dans l'éditeur du forum).
Ce serait plus pratique pour t'expliquer ce qui ne va pas.

Pour ce qui est de cette ligne jaune, met un "." devant le premier Range et supprime les "onglet_cible" (mais pas le ".").
Tu devrais lire l'aide concernant l'utilisation de l'instruction With : https://msdn.microsoft.com/fr-fr/VBA...with-statement

Tant que tu y es, remplace le "Select" par "Copy" et supprime la ligne suivante.

[JojoCout]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Zone_forme As Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With onglet_cible
                .Cells(1, col_cible).EntireColumn.Insert Shift:=xlShiftToRight, CopyOrigin:=xlFormatFromLeftOrAbove 'insertion d'une colonne
                Set Zone_forme = Range(onglet_cible.Cells(1, col_cible + 1), onglet_cible.Cells(7, col_cible + 1))      ' Remise en forme de la nouvelle colonne
                Zone_forme.Copy
                Cells(1, col_cible).Select
                Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
                Zone_résultats.Copy Destination:=.Cells(1, col_cible)                                               ' copie des résultats
                End With

Merci d'avoir répondu si rapidement. En rifouillant un peu j'ai compris que je ne pouvais pas utiliser range avec une colonne variable. EN revanche ça fonctionne très bien en declarant la range par une variable.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Zone_forme As Range

En rifouillant un peu j'ai compris que je ne pouvais pas utiliser range avec une colonne variable...

Et comme ceci, (fais attention aux points avant Range et Cells)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    .Cells(1, col_cible).EntireColumn.Insert Shift:=xlShiftToRight, CopyOrigin:=xlFormatFromLeftOrAbove             'insertion d'une colonne
    .Range(.Cells(1, col_cible + 1), .Cells(7, col_cible + 1)).Copy                  ' Remise en forme de la nouvelle colonne
    .Cells(1, col_cible).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False