Copier sous condition

Fermé
guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020 - Modifié le 12 juin 2020 à 22:01
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 13 juin 2020 à 06:46
Bonjour,

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


merci de votre aide

Configuration: Windows / Firefox 60.0
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 juin 2020 à 06:46
Bonjour,

A quoi sert ceci: Tbl(1, I)?
0