fonction "index alphabétique"

Version imprimable

Bonjour,

Quelle est la fonction qui renvoie la lettre de la n-ieme colonne d'un feuille ?

C'est que j'ai des tableaux à remplir par une macro, et que plutôt que de boucler sur toutes les lignes et toutes les colonnes, j'aimerais écrire la formule une fois, à l'aide .formula, puis l'étendre.
j'ai pensé écrire quelque chose du genre

Code:

ActiveCell.OffSet(j, k).Formula = ("=Traitement!"& XX& ""& 24+j & "*produit" & p & " !" & XX & "" & 6+j)

où XX serait remplacé par la fonction en question me permettant d'écrire la bonne lettre

Je vous donne quand même le code actuel (qui d'ailleurs ne marche pas, pour cause d'incompatibilité de type) pour vous donner une idée
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For i = 0 To 2 For j = 0 To 5 For k = 0 To 5 CellCoura.OffSet(4, 1 + i * 9).Activate Val = Worksheets("Traitement").Cells(24+j, 12+k).Value * Worksheets("Produit" & p).Cells(6+j, 3).Value ActiveCell.OffSet(j, k).Value = Val ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.OffSet(0, 5)), Type:=xlFillDefault Range(ActiveCell, ActiveCell.OffSet(0, 5)).AutoFill Destination:=Range(ActiveCell, ActiveCell.OffSet(5, 5)), Type:=xlFillDefaul Next Next Next
Remarquez que si jamais quelqu'un trouve l'erreur en passant, çà m'intéresse toujours !

11/07/2007, 09h05
wilfried_42
bonjour amiral

je ne suis pas certain d'avoir tout compris mais si tu veux etendre une formule, il te faut une formule

exemple
Code:

1 2 Range("C1").formulalocal = "=Traitement!A1*Produits!B1" Range("C1:C100").filldown
Avec cela tu place une formule dans la cellule resultat, et tu la dupliques sur 100 lignes

salutations
11/07/2007, 09h14
Amiral19

Tout à fait !

La question que je me pose, c'est de savoir comment remplacer le A de "A1" par un truc du genre index(1), ce qui me permettrait de sélectionner la colonne dont le numéro (ou plutôt la lettre) résulte d'un calcul
11/07/2007, 09h24
wilfried_42
re:

par une simple formule
Code:

1 2 lettre = chr(64 + (numcol mod 27)) if numcol>26 then lettre = chr(64 + int(numcol /26))
essaye ceci, j'ai pas testé mais ca devrai etre Ok

Bonne journée
16/07/2007, 11h28
Amiral19

Je me permets de relancer un peu cette discussion, parce que je suis toujours bloqué.

D'une part parce que ce que me propose Wilfried ne permet pas, à priori de prendre en compte les colonnes à deux lettres (AA par exemple).
Et d'autre part parce que, à défaut de fonction excel dédiée, j'aimerais créer ma propre fonction qui retourne la chaine de caractères voulue.

Donc si quelqu'un connait une fonction qui fait çà toute seule je suis preneur.
Sinon : comment crée-t-on une fonction d'un paramètre du genre : lettre (28) renvoie AB
16/07/2007, 14h50
zazaraignée

L'objet Cells t'aidera surement.

J'ai fais une petite fonction qui te renvoi la lettre correspondant a l'index passé en paramètre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Public Function lettre(index As Integer) As String
 
Dim i As Integer
Dim nb As Double
 
nb = Int(index * 10 / 26) / 10
 
If index > 26 Then
    For i = 1 To nb
        lettre = lettre & "A"
    Next i
End If
 
Select Case index - (nb * 26)
    Case 1
        lettre = lettre & "A"
    Case 2
        lettre = lettre & "B"
    Case 3
        lettre = lettre & "C"
    Case 4
        lettre = lettre & "D"
    Case 5
        lettre = lettre & "E"
    Case 6
        lettre = lettre & "F"
    Case 7
        lettre = lettre & "G"
    Case 8
        lettre = lettre & "H"
    Case 9
        lettre = lettre & "I"
    Case 10
        lettre = lettre & "J"
    Case 11
        lettre = lettre & "K"
    Case 12
        lettre = lettre & "L"
    Case 13
        lettre = lettre & "M"
    Case 14
        lettre = lettre & "N"
    Case 15
        lettre = lettre & "O"
    Case 16
        lettre = lettre & "P"
    Case 17
        lettre = lettre & "Q"
    Case 18
        lettre = lettre & "R"
    Case 19
        lettre = lettre & "S"
    Case 20
        lettre = lettre & "T"
    Case 21
        lettre = lettre & "U"
    Case 22
        lettre = lettre & "V"
    Case 23
        lettre = lettre & "W"
    Case 24
        lettre = lettre & "X"
    Case 25
        lettre = lettre & "Y"
    Case 0
        lettre = lettre & "Z"
End Select
 
End Function

16/07/2007, 15h41
zazaraignée

Tu veux l'adresse des colonnes, donc ?
16/07/2007, 17h52
Amiral19

j'ai trouvé exactement ce que je voulais, car quelqu'un a posé la même question que moi durant le week-end.
La discussion s'appelle "problème pour écrire une formule" et a été posée et résolue par Dereck07

Merci Dereck07 !! Du même coup, j'ai appris à écrire une fonction !

Merci aussi à tous ceux qui ont bien voulu passer un peu de temps pour mon p'ti problème.