VBA syntaxe

Bonjour au forum,

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:

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.

Bonjour Claude

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

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

bonne journée

@+

Bonsoir,

chez moi, ce code fonctionne :

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

re,

cousinhub, ton code est nickel,

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

Merci à vous trois

Amicalement

Claude.