prendre une variable et y ajouter une constante

[llecarpentier]

Bonjour à tous!!!

J'ai quelques ennuis avec un fichier excel.

la premiere feuille est une base de données qui liste mes produits en stocks
Dans la seconde, je récupère des données de la première feuille pour y effectuer des modifications de toute sorte.
En ce moment je dois récupérer une chaine de caractère dans une cellule et la mettre dans une autre cellule. Mon code fonctionne bien et ressemble à ça:

Sub Recherche_route()

Dim Space1 As Integer
Dim Space2 As Integer
Dim ligreq As Integer

Sheets("prodrequis").Select
ligreq = 2
Do While Sheets("prodrequis").Cells(ligreq, 1) <> ""
If Sheets("prodrequis").Range("E" + Trim(Str(ligreq))).Value = "" Then
Space1 = InStr(1, Sheets("prodrequis").Range("C" + Trim(Str(ligreq))).Value, " ", vbTextCompare)
' recherche du 2eme espaces.
Space2 = InStr(Space1 + 1, Sheets("prodrequis").Range("C" + Trim(Str(ligreq))).Value, " ", vbTextCompare)
If Space2 = 0 Then
Space2 = Len(Sheets("prodrequis").Range("C" + Trim(Str(ligreq))).Value)
End If
Sheets("prodrequis").Range("J" + Trim(Str(ligreq))).Value = Mid(Sheets("prodrequis").Range("C" + Trim(Str(ligreq))).Value, Space1, Space2 - Space1)
End If

ligreq = ligreq + 1

Loop

End Sub

Le problème est que ma chaine est incomplète. En effet je dois ajouter devant ma chaine de caractères que j'ai récupérer le terme Waf.

Je vous remercie d'avance pour tous les conseils que vous pourrez me donner.
De mon coté je vais continuer à chercher une solution.

 

[Pierrot93]

Re : prendre une variable et y ajouter une constante

Bonjour,

essaye ainsi si j'ai bien compris, pas sûr...

Sheets("prodrequis").Range("J" + Trim(Str(ligreq))).Value = "Waf" & Mid(Sheets("prodrequis").Range("C" + Trim(Str(ligreq))).Value, Space1, Space2 - Space1)

bonne journée
@+