VBA excel: Formule dans toute la sélection

Liro -  
Bonjour,

J'ai une sélection "FED", je souhaite insérer une formule dans la colonne H de toutes les lignes de cette sélection.

Comment faire?
Merci pour votre aide.
Configuration: Windows XP
Firefox 2.0.0.3

3 réponses

  1. khatri10
    je suis débutant un Vb et j'ai déja ouvrir une tableau qui enregistre des données un utilisant un objet MSCom et je vais trové la même page en Excel.
    0
    1. Papou
      Bonjour,

      On peut faire + simple : 

      Columns("H:H").FormulaR1C1 = "formule"

      Cordialement

      Papou
      0
      1. xjl
        Sauf que si je ne m'abuse, ça va mettre la formule dans toute la colonne et non pas dans les cellules de la colonne appartenant à la zone "FED", ce qui était quand même le but au départ...

        De plus le choix de .FormulaR1C1 au lieu du .Value provoque parfois le rajout du caractère ' qui met un peu le bordel dans la formule...
        0
      2. Papou
        Bonjour Xjl, Liro,

        La remarque de Xjl est judicieuse,
        Il suffit alors de faire référence à la plage nommée : 

        Range("FED").Columns("H:H").Formula = "formule"


        Attention, la colonne 'H' est relative à la colonne de départ définie dans FED.

        Cordialement

        Papou
        0
      3. xjl
        @PapouEn effet, par contre si l'on utilise Cell.Column = 8 comme je le suggérait au départ, on est en absolu et la colonne 8 est la colonne H quelle que soit la zone "FED"...
        0
      4. Papou
        @PapouExact, alors pour conclure, les 2 solutions fonctionnent :

        En relatif --> 
        Range("FED").Columns("H:H").Formula = "formule"


        En absolu --> 
        Range("FED").Columns8).Formula = "formule"


        Cordialement

        Papou
        0
      5. Papou
        @PapouPardon,

        J'ai zappé une parenthèse : 

        Range("FED").Columns(8).Formula = "formule"


        Voilà qui est réparé.

        Papou
        0
    2. xjl
      Salut,

      Sub formula()

      For Each Cell In Sheets(1).Range("FED").Cells
      If Cell.Column = 8 Then
      Cell.Value = "=ta_formule"
      End If
      Next Cell

      End Sub
      0