problème de syntaxe

[mumu]

Bonjour le forum,

J'ai un petit souci de syntaxe..... Le but de ma macro est de retrouver la dernière cellule d'un fichier et de faire des calculs divers. Je vous en mets un petit bout.
Je voudrais écrire correctement cette ligne : Range(["H" & chiffre:"H" & ch4]), je l'ai retourné dans tous les sens mais je n'y arrive pas......

Sub essai()

Dim DerLig As Integer
Dim chiffre As Integer
Dim ch4 as integer

DerLig = Sheets("feuille").Range("A" & Rows.Count).End(xlUp).Row
chiffre = DerLig + 5
[....]
    Range("H" & chiffre).Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    ch4 = chiffre + 4    
' problème de syntaxe dans la suite
    Selection.AutoFill Destination:=Range(["H" & chiffre:"H" & ch4]), Type:=xlFillDefault
End sub

Je vous remercie par avance pour les éventuelles réponses !!

mumu

 

[Papou-net]

Re : problème de syntaxe

Bonjour mumu,

Peut-être comme celà ?

Sub essai()

Dim DerLig As Integer
Dim chiffre As Integer
Dim ch4 as integer

DerLig = Sheets("feuille").[COLOR="Red"]Range("A65536")[/COLOR].End(xlUp).Row
chiffre = DerLig + 5
[....]
    Range("H" & chiffre).Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    ch4 = chiffre + 4    
' problème de syntaxe dans la suite
    Selection.AutoFill Destination:=Range([COLOR="Red"]"H" & chiffre & ":H" & ch4[/COLOR]), Type:=xlFillDefault
End sub

Espérant t'avoir dépanné.

Cordialement.

 

[mumu]

Re : problème de syntaxe

Salut Papou-net,

Effectivement tu viens de bien me dépanner !!!! ça marche !!!! c'est génial.
Je te remercie pour cette réponse, et pour la rapidité également !

@ bientôt.
mumu