Finalisation d'une petite macro

yolutho

XLDnaute Nouveau
Bonjour,

Voici une petit macro sur laquelle je travaille mais je ne parviens pas à la finaliser.

En effet, je ne parviens pas à mentionner le choix d'une cellule correspondant à l'ActiveCell.Row

Sub Insr_ligne()
If ActiveCell.Row > 10 Then
Call Dévérouiller
Selection.EntireRow.Insert
Range("A10:S10").Copy .Range(cellule X de activeCell.row).PasteSpecial: xlPasteFormulas
Call Vérouiller
End If
End Sub

Pour être plus précis, je donne un exemple. J'active la cellule E15, et j'active ma macro via un bouton. Je souhaiterais que les formules de la plage de cellule A10:S10 soient copier à partir de la cellule E10.

Merci de vos contributions

P.S. : Je vous joins un petit fichier exposant la situation.
 

Pièces jointes

  • Classeur2.xlsm
    17.1 KB · Affichages: 28
  • Classeur2.xlsm
    17.1 KB · Affichages: 29
  • Classeur2.xlsm
    17.1 KB · Affichages: 30
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Finalisation d'une petite macro

Re,

je me suis basé sur ce :
Pour être plus précis, je donne un exemple. J'active la cellule E15, et j'active ma macro via un bouton. Je souhaiterais que les formules de la plage de cellule A10:S10 soient copier à partir de la cellule E10.

donc un décalage de 5 lignes par rapport à la cellule active...
 

yolutho

XLDnaute Nouveau
Re : Finalisation d'une petite macro

Je ne dis pas que ta formule ne fonctionne pas c'est qu'elle ne cadre pas avec ce que je souhaite réalisé.
Je me suis mal exprimé car tu n'a pas compris mon exemple. Mea culpa.

D'ailleurs, je conserve ta proposition pour une autre macro dans laquelle elle m'est bien utile. ;)
 

Pierrot93

XLDnaute Barbatruc
Re : Finalisation d'une petite macro

Re,

regarde ceci, mais sans doute lie d'adapter :
Code:
Sub Insr_ligne()
    If ActiveCell.Row > 10 Then
        Selection.EntireRow.Insert
        Range("A10:F10").Copy
        Cells(ActiveCell.Row, 1).PasteSpecial xlPasteFormulas
    End If
End Sub
 

yolutho

XLDnaute Nouveau
Re : Finalisation d'une petite macro

Ta proposition fonctionne mais elle copie aussi les valeurs.

Je vais jeter un coup d’œil.

...

Quoi que je fasse la macro copie l'ensemble des informations alors que je ne souhaite reporter que les formules ... Pourquoi ?
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Finalisation d'une petite macro

Re,

à tester :
Code:
Sub Insr_ligne()
Dim x As Long
    If ActiveCell.Row > 10 Then
        Selection.EntireRow.Insert
        x = ActiveCell.Row
        Range("A11:A" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=R[-1]C + 1"
        Range("E" & x & ":F" & x).FormulaR1C1 = Range("E10:F10").FormulaR1C1
    End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 796
Membres
101 817
dernier inscrit
carvajal