J'ai une colonne K comportant soit des oui ou non. lorsque la cellule est égale à oui je souhaite que les lettres RA soit ajouté dans la cellule de la même ligne de la colonne J .
Dans la colonne J, j'ai des chiffre, je ne souhaire pas les remplacer par RA mais ajouter RA à la suite des chiffres.
J'ai commencé ainsi:
Sub Test()
Dim Plage As Range
Dim Cel As Range
Dim Tbl() As String
Dim I As Integer
With Worksheets("Export"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 11).End(xlUp)): End With
For Each Cel In Plage
If Cel.Value = "Oui" Then
I = I + 1: ReDim Preserve Tbl(1 To 3, 1 To I)
Tbl(1, I) = Cel.Offset(, -10).Value
End If
Next Cel
End Sub
