Discussion :

[Amiral19]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[wilfried_42]

re:


par une simple formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[zazaraignée]

L'objet Cells t'aidera surement.