Re : coder deux éléments
Bonjour à tous,
pour réunir cela peut-être ce type de syntaxe :
Sub Réunir()
With Sheets("DONNEES")
.Range("A3").NumberFormat = "@" ' Format texte
.Range("A3") = .Range("F3") & " - " & .Range("L3") ' Réunion de deux valeurs
End With
End Sub
Pour séparer les valeurs :
Sub SéparerValeurs()
Dim X As Byte
With Sheets("DONNEES")
' Position du caractère de séparation depuis le départ
X = InStr(1, .Range("A3"), "-")
' Valeur de gauche
.Range("F3") = Left(.Range("A3"), X - 1)
' Valeur de droite
.Range("L3") = Right(.Range("A3"), X - 1)
End With
End Sub
Cordialement
Bernard