Import de ligne avec condition
michael_scott
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
michael_scott Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
michael_scott Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
lien excel : https://www.transfernow.net/files/?utm_source=99fyo5j81k49&utm_medium=&utm_content=en
Mon code permet de venir coller un morceau de ligne dans une autre feuille (et lui appliquer un format).
Par contre j'aimerais imposer une condition supplémentaire à l'import :
lorsque la colonne B et colonneC sont similaires, alors
copie/colle UNIQUEMENT la ligne la plus "vieille "(celle avec la clef en colonne A la plus grande donc)
(avec mon code actuel, toutes les lignes sont importées) dans le cas présenté en pj, la ligne 6 et 11 sont importées, alors que je ne souhaite que la ligne 11 car colonneB&C similaires pour les lignes 6 et 11)
merci !
Dim i As Integer
Dim DerniereLigne As Long
j=2
Sheets(1).Select
DerniereLigne = Range("A" & Rows.count).End(xlUp).Row
TableauSuivi = ActiveWorkbook.Sheets(1).Range("A2:AD" & DerniereLigne).Value
For i = 1 To UBound(TableauSuivi)
Etape = TableauSuivi(i, 4)
If Etape = "FIN_DU_FILM" Or Etape = "FIN" Then
Sheets(1).Range("A" & i + 1 & ":AD" & i + 1).Copy
Sheets(3).Select
Cells(j, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
j = j + 1
Else
End If
Next i
A voir également:
- Import de ligne avec condition
- Partage de photos en ligne - Guide
- Excel cellule couleur si condition texte - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Formulaire en ligne de meta - Guide
ces 2 lignes , 6 & 11, ont les mêmes données en colonne B et C (soient"dd" et "toto").
Je souhaite donc faire la copie uniquement de la ligne 11 (car clef en colonne A de la ligne 11 > clef ligne 6) ->merci