VBA concaténer 2 colonnes sous conditions

gilbert_RGI

XLDnaute Barbatruc

• 8 Juillet 2016

• #2

Bonjour,

comme ceci peut-être



Sub Concatener()
Dim Cellule As Range, Sh2 As Worksheet
Set Sh2 = Sheets("CONCAT")
i = 2
For Each Cellule In Sh2.Range("d1:S" & Sh2.Range("S65536").End(xlUp).Row)
If Sh2.Range("d" & i).Value = "MOL" Then 'si valeur =1
Cells(i, 16).Value = Sh2.Range("d" & i).Value & Sh2.Range("e" & i).Value
End If
i = i + 1
Next
End Sub

 

Vote positif 0 Vote négatif

T

teuliere

XLDnaute Nouveau

• 8 Juillet 2016

• #3

Bonjour et merci pour la réactivité..
content de voir que je n'était pas si loin de votre code..
En revanche, avez vous testé la macro, car de mon côté il ne se passe rien..?? ni réalisation de la macro, ni message d'erreur??

Le fait qu'il y ait de nombreuses cellules vide peut il être un facteur ?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 8 Juillet 2016

• #4

voir en colonne P le résultat

 

Vote positif 0 Vote négatif

T

teuliere

XLDnaute Nouveau

• 8 Juillet 2016

• #5

super,
du coupe, j'ai changé le (i, 16) en (i, 4) et j'obtiens ce que je veux :
à savoir de remplacer le contenu de ma colonne D par le concaténat de D+E.
COMMENT FAIRE pour insérer un tiret entre les 2 (ex : MOL - RAL)

Merci.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 8 Juillet 2016

• #6

un petit " j'aime" serait apprécié

 

Vote positif 0 Vote négatif

T

teuliere

XLDnaute Nouveau

• 8 Juillet 2016

• #7

En effet, c'est bien normal.
bye.

pour ma part, sujet résolu. Merci

 

Dernière édition: 8 Juillet 2016

Vote positif 0 Vote négatif