VBA syntaxe

[dubois]

Bonjour au forum,

Code: Tout sélectionner

Dim i As Integer
    For i = 2 To Lg
        If Range("d" & i) > 1 Then
                Dep = 1
            Do While Range("a" & i + 1) = Range("a" & i)
               Range("c" & i) = Dep & "-" & Range("d" & i)
                Dep = Dep + 1
                i = i + 1
               Range("c" & i) = Dep & "-" & Range("d" & i)
            Loop
        End If
    Next i

Sur la ligne:

Code: Tout sélectionner

Range("c" & i) = Dep & "-" & Range("d" & i)

J'aurai souhaité un "/" à la place du tiret (qui fonctionne bien),
même en doublant les guillemets, çà bogue !

le but est d'obtenir : 1/3 ; 2/3 et 3/3 par exemple
Quel serait le bon code ?
Bonne journée
Claude.

[Pierrot93]

Bonjour Claude

sans doute pas tout compris moi, quelque chose doit m'échapper, le code ci-dessous chez moi fonctionne...

Code: Tout sélectionner

Dim i As Integer, dep As Byte
i = 2
dep = 1
Range("c" & i) = dep / Range("d" & i)

bonne journée
@+

[cousinhub]

Bonsoir,

chez moi, ce code fonctionne :

Code: Tout sélectionner

Dim i As Integer
Columns(3).NumberFormat = "@"
    For i = 2 To LG
        If Range("d" & i) > 1 Then
                Dep = 1
            Do While Range("a" & i + 1).Value = Range("a" & i).Value
               Range("c" & i).Value = Dep & "/" & Range("d" & i).Value
                Dep = Dep + 1
                i = i + 1
               Range("c" & i).Value = Dep & "/" & Range("d" & i).Value
            Loop
        End If
    Next i


[dubois]

re,

cousinhub, ton code est nickel,
f...., qu'est-ce que tu fait à Nouméa ?

Merci à vous trois
Amicalement
Claude.