Discussion :

[JJBMEUDON]

Bonjour,

Je suis bloqué sur le problème suivant :

Dans une feuille excel nommée AA et dans une cellule précise exemple : F6 j'ai la chaine de caractères suivante : 3-4-7-8-12 (séparateur le tiret)

Je désire via une macro obtenir dans autre feuille excel nommée BB le résultat suivant en :

F6 = 12
F5 = 8
F4 = 7
F3 = 4
F2 = 3
tout ceci en additionnant ces valeurs dispatchées aux valeurs numériques déjà présentes.
merci de votre aide
Bonne journée

[edelweisseric]

Bonsoir à tous
Bonsoir JJBMEUDON

Je n'ai pas pu tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub decoupe_test()
Dim CelA As String
Dim tablo(4)
Dim i As Integer
 
CelA = Sheets("AA").Range("F6")
CelA = Replace(CelA, "-", " ")
tablo = Split(CelA, " ")
For i = 0 To UBound(tablo)
    Sheets("BB").Range("F" & i + 2) = tablo(i)
Next i
End Sub

Essaie et dis nous

Eric

[myDearFriend!]

Bonsoir JJBMEUDON,
Bonsoir ami Eric ,

Une autre proposition (en cumulant les valeurs cibles si j'ai bien compris) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim T
Dim L As Byte
    T = Split(Sheets("AA").Range("F6").Text, "-")
    With Sheets("BB").Range("F2:F6")
        For L = 1 To UBound(T) + 1
            .Cells(L).Value = .Cells(L).Value + T(L - 1)
        Next L
    End With
End Sub

Cordialement,
Didier_mDF