Bonjour le forum,
J'aimerais concaténer une dizaine de cellules en VBA en rajoutant une condition si la cellule est vide il ne met pas de double tiret.
Merci d'avance de vos lumières.
Cdlt,
Sadness
J'aimerais concaténer une dizaine de cellules en VBA en rajoutant une condition si la cellule est vide il ne met pas de double tiret.
Code:
Option Explicit
Sub test()
Dim liste As String
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Dim k As String
a = Sheets("Launcher").Range("F8").Value
b = Sheets("Launcher").Range("F9").Value
c = Sheets("Launcher").Range("F10").Value
d = Sheets("Launcher").Range("F11").Value
e = Sheets("Launcher").Range("F12").Value
f = Sheets("Launcher").Range("F13").Value
g = Sheets("Launcher").Range("F14").Value
h = Sheets("Launcher").Range("F15").Value
i = Sheets("Launcher").Range("F16").Value
j = Sheets("Launcher").Range("F17").Value
k = Sheets("Launcher").Range("F18").Value
liste = a & "-" & b & "-" & c & "-" & d & "-" & e & "-" & f & "-" & g & "-" & h & "-" & i & "-" & j & "-" & k
Sheets("Attest_BDD").Range("H2:H100") = liste
End Sub
Merci d'avance de vos lumières.
Cdlt,
Sadness