Problème macro avec cellules fusionnées

[good57]

Bonjour tout le monde !

Ci-joint, mon fichier. Eh oui, il est en allemand 🙂

Mon problème : j'ai un bouton "Woche einfügen" (ajouter semaine) qui me permet de copier le tableau principal et de le coller en dessous.

Lorsque je clique 1 fois dessus : mon tableau se copie/colle en dessous du premier comme il faut.

Lorsque je clique une 2nde fois dessus (pour ajouter une 3eme semaine) : ERREUR d'exécution '1004' - Impossible de modifier une cellule fusionnée.

Qqn a-t-il une idée d'où peut venir mon souci ??

 

[jpb388]

Re : Problème macro avec cellules fusionnées

Bonjour a tous

à la place de resize(23) tu mets resize(25)

 

[good57]

Re : Problème macro avec cellules fusionnées

Bonjour JP.

Ca ne fonctionne pas 🙁

Peux-tu me dire à quoi correspont ce "resize" ?

 

[jpb388]

Re : Problème macro avec cellules fusionnées

re

Sub NbrDeSemaines()
    
    Application.CutCopyMode = False
    Cells(35, 1).Select
    ActiveCell.Resize(23).EntireRow.Insert
    Range("A7:CZ34").Select
    Selection.Copy
    Cells(35, 1).Select
    
    ActiveSheet.Paste
    Range("A1").Select
End Sub

dans celle ci tu mets minimum 25 voir 30
car 23 n'est pas assez et tu écrases les lignes fusionnées du précédent

mon essai fonctionne très bien chez moi

 

[good57]

Re : Problème macro avec cellules fusionnées

BINGO !!
Merci JP 🙂