Macro recopie plage variable

Tom -  
 Tom -
Bonjour,

Je souhaites dans une Macro ajouter une colonne en fin de fichier, ajouter une en-tête de colone "valeur" et incrementer le reste de la colonne de la formule suivante C2 = A2*B2 etc. jusqu'à la fin du fichier qui peut être variable.. et c'est bien la que ça se complique.

Que faut il mettre pour que la formule soit incrémentée dans la colone en fonction du nombre de lignes... ?
Merci d'avance pour votre retour.

6 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Public Sub OK()
    Dim lifin As Long
    lifin = Cells(Rows.Count, 1).End(xlUp).Row
    Range("C1").Value = "valeur"
    Range("C2").FormulaLocal = "=A2*B2"
    Range("C2").AutoFill Destination:=Range("C2:C" & lifin), Type:=xlFillDefault
    End Sub


    Cdlmnt
    0
  2. Tom
     
    Bonjour,

    Merci pour votre réponse,
    Vba me donne un message d'erreur une fois ce code écrit dans le reste de la macro.
    "Erreur de syntaxe"

    En surlignant après destination, les : = de : Destination:=range("c2:c" & lifin), type:=xlfilldefault

    Pouvez vous me dire ce qui bloque je ne trouve pas l'erreur ?

    Merci d'avance
    0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    Peut tu poster un bout de ton fichier anonymisé contenant ton code s'il te plait
    1) Clic sur ce lien https://www.cjoint.com/
    2) Clic sur le bouton Parcourir pour sélectionner ton fichier
    3) Clic sur le bouton Créer le lien en bas de la page
    4) Au bout de quelques secondes en haut de la page en bleu souligné un lien sera généré, tu le sélectionnes et tu le copies dans une réponse
    0
  4. Tom
     
    Ci de dessous une partie du code que je souhaites mettre en place

    http://www.cjoint.com/c/FIBkUTmTYXO

    Merci d'avance pour votre retour.
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie de placer un espace entre Autofill et Destination

    A+
    0
  7. Tom
     
    Effectivement cela fonctionne... Merci beaucoup
    A+
    0