Propriété formulaRésolu

Question

NHenry avais réussi à répondre à ma question concernant la propriété formula (cf post d'hier), mais il y a une erreur que je viens de découvrir aujourd'hui : 

En fait si on donne 27 comme valeur pour a (dans mon exemple), le code ne fonctionne plus et il y a une erreur du type "Erreur définie par l'application ou par l'objet", je pense que cette erreur arrive au moment où les colonnes prennent le format AA, AB, AC etc.

Je donne à nouveau mon code pour pouvoir résoudre ce problème :

Sub essai()
Dim a, b, c, d As Integer
a = 27
b = 8
c = 4
d = 8
Cells(8, 2).Formula = "=$" + Chr$(Asc("A") + a - 1) + "$" + Format(b) + "+$" + Chr$(Asc("A") + c - 1) + "$" + Format(d)
Cells(8, 2).NumberFormat = "General"
End Sub

Renfield · Accepted Answer

même carément pas de là : Excel accepte également les minuscules.....
j'ai mis un point d'arret sur le En Function de GetColumnName...

cette fonction est tout simplement fausse.... si on fais par exemple GetColumnName ( 27), on obtient
`b

le mieux, est de laisser Excel faire cette conversion :

Cells(8, 2).Formula = "=" & Cells(b, a).Address & "+" & Cells(d, c).Address

Renfield
Admin CodeS-SourceS- MVP Visual Basic

NHenry · Answer

Salut,
(je suis clélèbre )

Oui, ça vien de là.
private function GetColumnName(byval pIndex as long) as string
    if pIndex<=26 then
        GetColumnName=chr$(asc("a")+pIndex-1)
    else
        GetColumeName=chr$(asc("a")+(pindex MOD 27)-1))+chr$(asc("a")+int(pindex /27)))
    End if
End Fuunction

puis tu remplace :
Chr$(Asc("A") + a - 1)
par 
GetColumnName(a)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Tobi26 · Answer

Je n'arrive pas encore à le faire fonctionner mais je pense que c'est une erreur de ma part. (surtt que je ne comprend pas trop le code depuis hier en fait lol :-p )

Mais ça arrive !

NHenry · Answer

Bonjour

Met peut-être la patie du code qui pose pb.

Chr : transforme un nombre en son équivalent ASCII
Asc : fait l'inverse.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Tobi26 · Answer

Le code en entier

Function GetColumnName(ByVal pIndex As Long) As String If pIndex <= 26 Then GetColumnName = Chr$(Asc("a") + pIndex - 1) Else GetColumnName = ((Chr$(Asc("a") + (pIndex Mod 27) - 1)) + Chr$(Asc("a") + Int(pIndex / 27))) End If End Function

Sub essai() Dim a, b, c, d As Integer a = 27 b = 8 c = 4 d = 8 Cells(8, 2).Formula = "=$" + GetColumnName(a) + "$" + Format(b) + "+$" + Chr$(Asc("A") + c - 1) + "$" + Format(d) Cells(8, 2).NumberFormat = "General" End Sub

L'erreur : "Erreur définie par l'application ou par l'objet"

Renfield · Answer

le tout, Tobi n'est pas de recevoir un code qui marche direct...
il s'agit bel et bien de le comprendre.

c'est pas Asc("a") qu'il faut, mais Asc("A")

les colonnes, dans excel utilisent des majuscules....
adaptes toi, et ouvres l'oeil....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Tobi26 · Answer

Même avec ton aide Renfield, (on remplace les Asc("a") par Asc("A")), le code ne fonctionne pas donc le problème ne viens pas de là.

Tobi26 · Answer

Merci beaucoup pour m'avoir aidé jusqu'au bout :-) Maintenant ma procédure marche correctement et je vais pouvoir continuer mon travail :-)

Merci beaucoup à vous 2 !

Propriété formula

8 réponses

Votre réponse

Discussions similaires