Regrouper 2 cellules en une

Bsr à tous

je veux assembler deux cellules dans une autre cellule pour deux colonnes

J'ai eu le code mais le problème quand j'ajoute des autres lignes à chaque fois activer le code il me prend beaucoup de temps parce que ili répéter le cycle pour les autres lignes déjà faites

ma question je veux modifier mon code pour remplir seulement les cellules vides la colonne AF cells (32)

merci

Sub Id()
Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To lRow
    Cells(i, 32) = Range("BI2").Value & Cells(i, 14) & "," & Range("BJ2").Value & Cells(i, 13) & "}"
Next i
End Sub

Bonjour Nizar, bonjour le forum,

Peut-être comme ça :

Sub Id()
Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
For I = 3 To lRow
    If Cells(I, 32).Value = "" Then Cells(I, 32) = Range("BI2").Value & Cells(I, 14) & "," & Range("BJ2").Value & Cells(I, 13) & "}"
Next I
End Sub

Bonjour Nizar, bonjour ThauThème,

Une autre solution en passant par des tableaux VBA pour encore plus accélérer:

Sub Id()
Dim lRow As Long
Dim tabFusion As Variant, tabSource As Variant

'initialisations
lRow = Range("A" & Rows.Count).End(xlUp).Row
tabFusion = Range(Cells(3, 32), Cells(lRow, 32))
tabSource = Range(Cells(3, 13), Cells(lRow, 14))

'parcours du tableau pour remplissage
For i = LBound(tabFusion, 1) To UBound(tabFusion, 1)
    If tabFusion(i, 1) = "" Then
        tabFusion(i, 1) = Range("BI2").Value & tabSource(i, 2) & "," & Range("BJ2").Value & tabSource(i, 1) & "}"
    End If
Next i

'export résultat
Range(Cells(3, 32), Cells(lRow, 32)).Value = tabFusion
End Sub

Bonjour nizar2015,
Salut ThauThème et Ausecour

Comme nizar2015 ne précise pas le contexte, ni le pourquoi je ne peux m'empêcher de me demander : "pourquoi pas une simple formule pour concaténer, associée à un tableau structuré pour l'ajout de lignes ?"

Bonsoir U. Milité

Oula je dois être fatigué, ben oui, pourquoi ne pas ajouter une formule pour concaténer en fait?

Merci bcp pour tous.