Integrer une valeur de cellule dans une macro

bonjour

je souhaite utiliser une valeur de cellule (AA6) a l'interieur d'une macro qui permet de configurer une mise en page

la macro en elle meme fonctionne car je l'avais deja mis en place avec des valeurs fixes predefinies.

depuis que j'ai voulu utiliser la variable "qte" afin de n'avoir plus qu'une seule macro j'ai un retour d'erreur

voici la structure que j'ai faite mais j'ai toujours des messages d'erreur 13 en retour.

Sub configxpages()

'

' configxpages Macro

'

Dim qte As Integer

qte = Range("AA6")

Rows("29:(qte-23)").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("B(qte+9):Q(qte+9)").Select

Selection.Copy

Range("B9:Q(qte+8)").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("A9:A10").Select

Selection.AutoFill Destination:=Range("A9:A(qte+9)"), Type:=xlFillDefault

Rows("(qte+9):(qte+9)").Select

Selection.delete Shift:=xlUp

Range("A1").Select

End Sub

quelqu'un a t il une idée sur l'integration d'une variable dans des plages de données?

merci d'avance

Bonjour,

Sub configxpages()
' configxpages Macro
Dim qte As Integer
    qte = Range("AA6")
    Rows("29:" & (qte - 23)).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & (qte + 9) & ":Q" & (qte + 9)).Select
    Selection.Copy
    Range("B9:Q" & (qte + 8)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A9:A10").Select
    Selection.AutoFill Destination:=Range("A9:A" & (qte + 9)), Type:=xlFillDefault
    Rows((qte + 9) & ":" & (qte + 9)).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

A+

bonjour frangy.

quelle reactivité... merci beaucoup.

tout fonctionne parfaitement.

et j'ai meme compris mon erreur donc j'espere ne plus me faire avoir!

@++