XL 2019 VBA avec range de valeur

Hugues1976 · 11 Octobre 2023

Bonjour à toutes et à tous.

Je veux créer une macro pour que la valeur de colonne C ( de la ligne 4 à 999999) soit le résultat de la concaténation de la cellule A et B pour la même ligne.

Donc que c3 soit le résultat de A3 et B3
Donc que c4 soit le résultat de A4 et B4

De plus j'aurais besoin que si la valeur dans la colonne A est VIDE, qu'il passe à la prochaine ligne en laissant la présente ligne vide.

Je suis capable de le faire pour chaque cellule mais je crois avec la fonction RANGE de le faire automatiquement.

MErci de votre support

Dranreb · 11 Octobre 2023

Bonsoir.

VB:

Sub test()
   ActiveSheet.[C4:C999999].FormulaR1C1 = "=IF(ISBLANK(RC1),"""",RC1&RC2)"
   End Sub

job75 · 11 Octobre 2023

Bonsoir,

Pas toujours besoin d'aller jusqu'à la ligne 999999 :

VB:

Sub a()
With Range("C4:C" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    .FormulaR1C1 = "=REPT(RC1&RC2,RC1<>"""")"
    .Value = .Value 'facultatif, supprime les formules
End With
End Sub

A+

XL 2019 VBA avec range de valeur

Hugues1976

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires