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. 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
    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. 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