"La méthode select de l'objet range a échoué"

Version imprimable

31/05/2018, 17h02
JojoCout

1 pièce(s) jointe(s)

"La méthode select de l'objet range a échoué"

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:
Pièce jointe 384929

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.
31/05/2018, 17h50
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.

Code:

Dim Zone_forme As Range

Code:

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.

Citation:

Envoyé par JojoCout

Code:

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:

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