Modification code VBA incrementation

Bonjour @ tous,

dans l'exemple ci-inclus j'ai un code lié au bouton (ajouter un mois) que je voudrais modifier pour avoir ceci:

en cliquant sur le bouton (ajouter un mois) pour passer de mars-15 à avril-15 j'aimerais avoir dans la colonne E :

*** E9 doit égale D10 et E18 doit égale D19

*** les cellules E10, E12, E19, E21 doivent rester vides

*** les cellules E11, E13, E20, E22 doivent garder les mêmes formules

Merci d'avance

Bonjour koikili

Remplace ton Code CopierMois() par celui-ci :

Sub CopierMoisNouvelle()
Dim colDer, ligAct As Long
Dim tabFormule()    ' tableau pour marquer les cellules contenant des formules !

    tabFormule = Array(8, 9, 11, 13, 17, 18, 20, 22)    ' voici les lignes avec formules

    ' en simplifiant pour la comprehension !

    Range("D8").Select                              ' Premiere cellule connue
    colDer = Selection.End(xlToRight).Column        ' Rechercher la derniere cellule connue
    For ligAct = 0 To UBound(tabFormule, 1)         ' Parcourir le tableau depuis 0
                                                    '   par ce qu'un tableau dont les limites ne sont pas connues
                                                    '   commence tjs à 0
        Cells(tabFormule(ligAct), colDer).Copy      ' Copier la cellule

        Cells(tabFormule(ligAct), colDer + 1).PasteSpecial Paste:=xlPasteFormulas   ' Coller les formules slmnt en colonne+1
    Next

    ' Copier toutes les lignes et Coller seulement les formats
    For ligAct = 8 To 22
        Cells(ligAct, colDer).Copy
        Cells(ligAct, colDer + 1).PasteSpecial Paste:=xlPasteFormats
    Next

    ' Ou sinon plus "excelien" et aussi plus rapide
    'Range(Cells(8, colDer), Cells(22, colDer)).Copy
    'Cells(8, colDer + 1).PasteSpecial Paste:=xlPasteFormats

    Cells(10, colDer + 1).Select    ' Se placer tds sur la cellule à saisir !
    Application.CutCopyMode = False
End Sub

Bonjour Andrea,

le code ne marche pas

(re)

qu'est-ce qui ne "marche pas" ? le VBA plante ? les cellules sont mal recopiées ?

re Andrea,

le code bloque comme le montre l'image ci-jointe

Bonjour koikili

Vu pour la position de l'erreur... mais quelle est l'erreur ?

Par ce que chez moi le code fonctionne très bien ! Je viens de vérifier !

Bonjour Andrea,

quand je lance le code il bloque dans cette ligne

(j'utilise excel 2007)

Bonjour koikili

andrea73 a écrit :

Vu pour la position de l'erreur... mais quelle est l'erreur ? Par ce que chez moi le code fonctionne très bien ! Je viens de vérifier !

que dit-elle cette erreur que je ne vois pas sur mon Excel 2013 ?

peux-tu m'envoyer une copie de l'écran lorsque le message d'erreur apparait ?