Discriminant de colonne dans formule variable

Résolu
shaar -  
 Shaar -
Bonjour,

Je dois transcrire un document excel en macro. Ce document contient de nombreuses formules que je dois replacer pouvoir insérer en les écrivant dans la macro.

Le problème c'est que je dois courament passer par des variables pour écrire mon programme. Je m'en sortais jusqu'à présent en utilisant la fonction Chr()

Voici un exemple de code que j'utilise :
For i = 1 to End
Cells(i, derncolonne+1) = "=" & chr(derncolonne + 66) & i & ""+" & chr(derncolonne + 67) & i-1
Next i

Je sais que c'est moyen mais ça m'a permis d'avancer jusqu'à aujourd'hui.

Le problème va se poser quand je vais devoir aller sur les cellules à double lettre (AA, AB, AC...)

Auriez vous une idée de résolution plus "pro" que celle-ci ?

Merci,
Cordialement,

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    For i = 1 To x
        'la lettre de la colonne
        Lcol1 = Split(Cells(8, derncolonne + 66).Address, "$")(1)
        Lcol2 = Split(Cells(8, derncolonne + 67).Address, "$")(1)
        Cells(i, derncolonne + 1) = "=" & Lcol1 & i & "" + " & Lcol2 & i-1"
    Next i
    0
  2. Shaar
     
    Merci c'est nikel, exactement dont j'avais besoin !
    0