Bonjour à tous, j’ai un petit soucis. Voilà je n’arrive pas à effectuer un décallage des valeurs d’un tableau, afin d’insérer une nouvelle ligne de valeurs. Je part donc du bas de mon tableau, la dernière ligne étant « DerLig », et je fais le code suivant : le problème doit venir de la sélection de la ligne pour la déplacer sur la ligne du dessous…
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 For ColonneTCDyn = 5 To DerniereColonneTCDyn
    If Cells(8, ColonneTCDyn).Value <> Cells(8, ColonneTCDyn - 1).Value + 1 Then
        'on stocke la valeur du mois manquant
        MoisManquant = Cells(8, ColonneTCDyn).Value
 
        'si les mois ne se suivent pas on insère une nouvelle ligne rouge d'affaire fictive dans DATA
        'correspondante au mois manquant, non compté pour le 1er bloc, afin de bien avoir toutes les colonnes
        Sheets(OngletDataProduit).Select
        'on compte le nombre de lignes en rouge pour savoir où insérer la ligne
        LigneRougeData = 2
        While Cells(LigneRougeData, 1).Interior.ColorIndex = 3
            LigneRougeData = LigneRougeData + 1
        Wend
        'on décale d'abord tout se qui suit, en partant du bas du tableau
        For LigneData = DerLig To LigneRougeData - 1 Step -1
           'sélection de toute la ligne
           Range(LigneData).Select
           Selection = LigneData + 1
        Next LigneData
        'on met les valeurs dans la ligne insérée
        Cells(LigneRougeData, 1).Value = "2000"
        Cells(LigneRougeData, 2).Value = MoisManquant
        Cells(LigneRougeData, 4).Value = "1"
        Cells(LigneRougeData, 5).Value = Cells(2, 5).Value
        Cells(LigneRougeData, 7).Value = "ncHC"
        Cells(LigneRougeData, 8).Value = "non compté"
        Sheets(OngletTCDyn).Select
    End If
Next ColonneTCDyn

Est ce que quelqu’un pourrait m’aider ? merci et bonne journée

pardon, mes bornes sont plutôt:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 For LigneData = DerLig To LigneRougeData Step -1