Que signifie \ dans une expression VBA

[RENAUDER]

Bonjour,

J'ai le code suivant :
iInt = Index \ 26

Si je teste ce code, tant que Index est <= à 26, iInt est égal à 0.
Lorsque Index est > à 26, iInt est égal à 1

Quelle fonction est simulée ou équivalente à \.
D'avance merci

 

[Cousinhub]

Re : Que signifie \ dans une expression VBA

Bonsoir,
une petite question :
Comment fais-tu pour faire évoluer Index ?

Lorsque j'utilise ce mot tel quel dans ta fonction :

iInt = Index \ 26

Index me renvoie 1, et est considéré comme Long?

 

[Spitnolan08]

Re : Que signifie \ dans une expression VBA

Bonsoir,

Etrange, étrange....

Comme tu ne donnes pas le reste du code difficile à dire mais cela ressemble à une partie entière puisque Int(15/26)=0 et INT(32/26)=1...

Si Index = 100 as tu toujours comme résultat 1 ? ou bien 3 ?

Cordialement

 

[skoobi]

Re : Que signifie \ dans une expression VBA

Bonsoir Renauder ,

\ est l'opérateur de division qui renvoie comme résultat un entier.

Edit: salut bhbh, Spitnolan08

 

[myDearFriend!]

Re : Que signifie \ dans une expression VBA

Bonsoir RENAUDER, bhbh, Spitnolan08, le Forum,

\ est tout simplement l'opérateur de division entière.

Cordialement,

EDITION :
Bonsoir Skoobi, pardon je ne t'avais pas vu...

 

[RENAUDER]

Re : Que signifie \ dans une expression VBA

Bonjour,
Pour bhbh
Je n'ai pas mis tout le code mais Index est incrémenté de 1 à 255 correspondant au n° de colonnes de 1 à 255.
Par contre j'ai trouvé la réponse, il s'agit de :
Division de 2 nombres en un résultat entier
Si Index <=26
iInt = Index \ 26 donne 0

Si Index =27iInt = Index \ 26 donne 1
Et pour ceux que ça intéresse voici le code

Function GetColumnHeaderFromIndex(ByVal Index As Integer) As String
    Dim iInt%, iRest%
    If Index > 256 Then
        GetColumnHeaderFromIndex = vbNullString
    ElseIf Index < 27 Then
        GetColumnHeaderFromIndex = GetLetterFromNumber(Index)
    Else
        iInt = Index \ 26: iRest = Index Mod 26
        If iRest = 0 Then iInt = iInt - 1: iRest = 26
        GetColumnHeaderFromIndex = GetLetterFromNumber(iInt) & GetLetterFromNumber(iRest)
    End If
End Function

Function GetLetterFromNumber(ByVal Number As Integer) As String
    If Number < 1 Or Number > 26 Then GetLetterFromNumber = vbNullString Else GetLetterFromNumber = Chr$(Number + 64)
End Function