Problème de VBA

Question

Bonjour tout le monde,

J'ai un problème pour récuperer un numéro de ligne dans un fichier excel.
Voila le code qui me pose problème:
Private Function InsertRowWithH()
Dim CellValueB, CellValueC, CellValueD, CellValueE, CellValueF, CellValueG As Variant
Dim NoRow As Long
Dim NumS As String
    NoRow = 1
    CellValueB = Range("B" & NoRow).Value
    CellValueC = Range("C" & NoRow).Value
    CellValueD = Range("D" & NoRow).Value
    CellValueE = Range("E" & NoRow).Value
    CellValueF = Range("F" & NoRow).Value
    CellValueG = Range("G" & NoRow).Value
    NumS = CellValueB + CellValueC + CellValueD + CellValueE + CellValueF + CellValueG
    While ColH <> NumS
        NoRow = NoRow + 1
        CellValueB = Range("B" & NoRow).Value
        CellValueC = Range("C" & NoRow).Value
        CellValueD = Range("D" & NoRow).Value
        CellValueE = Range("E" & NoRow).Value
        CellValueF = Range("F" & NoRow).Value
        CellValueG = Range("G" & NoRow).Value
        NumS = CellValueB + CellValueC + CellValueD + CellValueE + CellValueF + CellValueG
    Wend
    MsgBox (NoRow)
    InsertRowWithH = NoRow
End Function

En ésperant que vous pouurez m'aider, je vous souhaite une excellente journée.

/!/makakdef/!/
Software is like sex, it's better when it's free

FMatrix07 · Answer

Bonjour,

Pour récuperer le numéro de la ligne de ta cellule active tu fais
Valcel = ActiveCell.Row

@+: SCCréat
Pensez:  Réponse acceptéeStéphan.COCHET

jrivet · Answer

Salut,
Deux trois petites chose.
Pourquoi déclarer en Varaint et non en String par exemple???

Que contient ColH ??? 
Que contienne les cellule?
Que doit donne : CellValueB + CellValueC + CellValueD + CellValueE + CellValueF + CellValueG ???? un nombre ou une Concaténation de Chaine?????

Si tu sais que la fonction retourne un long alors dit le:
Private Function InsertRowWithH() As Long
@+: Ju£i?n
Pensez: Réponse acceptée

cs_makakdef · Answer

ReBonjour,

Merci pour vos réponses,
J'ai mis en variant car je recevais une incompabilité de type (je sais que le type variant ralentit enormement le systeme ><)
La variable ColH contient un nombre concaténé des colonnes b à g
Les cellules contiennent uniquement des nombres
Voila merci encore pour tout votre aide!!!

/!/makakdef/!/

Software is like sex, it's better when it's free

mortalino · Answer

Salut
pas Variant mais Integer, Long pour entier, Double pour décimaux ou String pour caractères

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_MPi · Answer

Si ColH est un nombre concaténé (donc une chaîne), NumS devrait l'être aussi
Sinon, il te faudrait "caster" le type

Essaie en changeant les "+" par des "&"
NumS = CellValueB & CellValueC & CellValueD & CellValueE & CellValueF & CellValueG

ou encore
While CLng(ColH) <> CLng(NumS)

MPi

Problème de VBA

5 réponses

Votre réponse

Discussions similaires