Copier sous condition
guillaume gdco
Messages postés
75
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
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:
merci de votre aide
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:
- Copier sous condition
- Excel cellule couleur si condition texte - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Historique copier coller - Guide
- Copier-coller - Accueil - Informatique