Copier ligne sous condition

[MimiVba]

bonjour a tous,

Suite de longues recherches sur le net, je viens demander votre aide!

Je voudrais savoir comment faire pour faire cela :

_copier la ligne de la feuille "Donnees" si la dans la ligne la cellule en 1,18 est "OUI" dans la feuille "Transat" ! Faire sa pour chaque ligne jusqu a la derniere ligne??

Merci d avance a tous

 

[Pierre-Henry]

Re : Copier ligne sous condition

Bonjour,
Une solution en filtrant les données.....néanmoins je ne suis pas sur d'avoir compris le problème, donc je suis peut-être à côté de la plaque....

Cordialement

 

[MimiVba]

Re : Copier ligne sous condition

Merci mais je ne souhaite pas utiliser les filtres, je pense que c'est faisable avec une boucle "if" ou for each !

Ps: la condition est en 1,11

MErci d'avance a tous et merci Pierre-Henry

 

[Pierre-Henry]

Re : Copier ligne sous condition

Oui, je veux bien le faire avec un IF....c'est justement ta condition en 1,11 qui me chiffonne....je ne sais pas chez toi, mais pour moi, je n'ai que des numéros de lignes entiers! 😀
Je reviens avec le même, en IF

 

[Pierre-Henry]

Re : Copier ligne sous condition

Hop, comme promis, nouveau code....

Option Explicit
Sub Filtrer()
    
Dim Taille As Integer
Dim i As Integer
Dim j As Integer

j = 1
Taille = Sheets("Données").UsedRange.Rows.Count

    For i = 1 To Taille
        If Sheets("Données").Range("A" & i) = "OUI" Then
            Sheets("Données").Rows(i & ":" & i).Copy
            Sheets("Transat").Select
            Range("A" & j).Select
            ActiveSheet.Paste
            j = j + 1
        End If
    Next i
    Sheets("Transat").Select
    Range("A1").Select
End Sub

Cordialement

 

[MimiVba]

Re : Copier ligne sous condition

Merci beaucoup de ton aide Pierre-Henry. Sa fontionne très très bien!
Merci encore et bon dimanche !