Concatener par un boucle

[JB]

Bonjour,

Je debute les macro VBA et je suis entrain de vouloir automatiser la concatenation de 3 données situées en colonnes sur une feuille et affiché le resultat dans une autre feuille du classeur et toujours en colonne. J'aimerai pouvoir faire ca au moyen d'une boucle For et si jamais une des 3 colonnes sevant a la concatenation est vide j'aimerai qu'il m affiche cette erreur.

Si quelqu'un pouvait m'aider.....snif

 

[dg62]

Bonsoir JB

Un code tut simple à comprendre

Sub concat()
Dim Mot, mot1, Mot2, Mots3 As String
Dim i As Integer

For i = 9 To 11
Sheets('Feuil1'Â'Â').Select
mot1 = Range('B' & i).Value
Mot2 = Range('C' & i).Value
Mot3 = Range('D' & i).Value

    If mot1 = '' Then
        mess = 'B' & i & ' Vide !'
        rep = MsgBox(mess)
    End If

    If Mot2 = '' Then
        mess = 'C' & i & ' Vide !'
        rep = MsgBox(mess)
    End If

    If Mot3 = '' Then
        mess = 'D' & i & ' Vide !'
        rep = MsgBox(mess)
    End If
Mot = mot1 & ' ' & Mot2 & ' ' & Mot3

Sheets('Feuil2'Â'Â').Select
Range('A' & i-7).Value = Mot

Next i

End Sub

la boucle 9 à 11 est à adapter en fonction de tes données

Message édité par: dg62, à: 15/03/2005 18:08

 

[JB]

Merci Didier je file tester ça de suite afin de l'appliquer a mon doc.
Encore merci
JB

 

[JB]

Bon ca marche nikel chrome
C est super
Merci