Discussion :

[lekann74]

Voici mon problème je souhaite couper une ligne dans la feuille source pour la coller dans la feuille final.
La sélection de la ligne a couper est sélectionner avec la condition suivante "si dans le tableau trains vapeur dans la

colonne F une cellule contient la valeur V alors couper cette ligne est la coller dans la feuille final. A l'aide d'une

boucle effectuée le test sur l'ensemble des lignes et déplacer ces lignes si la condition est réunie.

PS : désolé pour ma dernière formulation mal formulée.

En attente réponse sincères remerciements. Lekann74

[Menhir]

Pour scruter la valeur d'une cellule, on utilise l'objet Cells(x,y).Value, x et y étant les coordonnées de la cellule.
Pour faire un test, on utilises la commande If
Pour couper une ligne (en vue de la copier ailleurs), on utilise la méthode Cut de l'objet Rows(x), x désignant le numéro de ligne.
Pour coller une ligne coupée, utiliser la méthode Paste ou la méthode Insert toujours appliquée à un objet Row.
Pour faire une boucle, utiliser la commande For to.

[vinc_bilb]

Bonjour

Non pas de la Vapeur mais un peu de VBA ....
Oui, en plus de ce qu'a dit Menhir (et qui est donc gravé dans la pierre )on peut aussi facilement en passant par un filtre sur 'v' et de transférer les lignes visibles après filtrage. Voir les différents supports sur les filtres sur ce site en cas de besoin .....

Voir exemple ci-dessous, que j'ai volontairement laissé un peu à affiner .....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub FilTest()
Call SetFiltValue(4, "v")
'Attention: il faut insérer une ligne après la 3 (Train vapeur)
End Sub
Sub SetFiltValue(Optional ColVal As Integer, Optional FiltVal As Variant)
 
Dim InpRng As Range, FiltRng As Range
 
    Call Remove_Autofilter(Worksheets("Source"))
    Set InpRng = Worksheets("Source").Range("C5").CurrentRegion
    Debug.Print InpRng.Address
 
    If ColVal > 0 And Not (IsMissing(FiltVal)) Then
        InpRng.AutoFilter Field:=ColVal, Criteria1:=FiltVal
        Else: InpRng.AutoFilter
    End If
 
    ' On ne prend pas la ligne de titre et on récupère les cellules visibles après filtrage
    Set FiltRng = InpRng.Offset(1, 0).Resize(InpRng.Rows.Count - 1, InpRng.Columns.Count).SpecialCells(xlCellTypeVisible)
 
    Debug.Print FiltRng.Address, InpRng.Address
 
    FiltRng.Copy Destination:=Worksheets("Final").Range("A1")
 
    ' Si l'on veut supprimer les enregistrements de la feuille d'origine (non testé)
    FiltRng.EntireRow.Delete
 
 
End Sub
 
Sub Remove_Autofilter(Optional Wsh As Worksheet)
 
    If IsMissing(Wsh) Then Set Wsh = ActiveSheet
    If Wsh.AutoFilterMode = True Then Wsh.AutoFilterMode = False
 
End Sub