VBA copier/coller ligne sous condition

[vidou]

Bonjour,

J'ai une fichier avec un onglet base et un onglet résultat.

Je voudrais copier les cellules de données de l'onglet Base vers résultat selon les conditions suivantes

la colonne A = "A" et la colonne B ne doit pas etre vide et alors je copie les données de la colonne A, B, C, D, E dans l'onglet resultat cellule A3

J'ai commencé comme cela

range("a3").select
While activecell.value = "A"

if activecell.offset(0,1).value <> "" then



Wend

Merci pour votre aide

Bonne journée

David

 

[Paf]

Re : VBA copier/coller ligne sous condition

Bonjour

une solution pour garder l'esprit du début de code:

Range("a3").Select
While ActiveCell.Value = "A"
    If ActiveCell.Offset(0, 1).Value <> "" Then
        x = x + 1
        Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy Worksheets("RESULTAT").Range("A" & x)
    End If
    ActiveCell.Offset(1, 0).Select
Wend

inconvénient:le code s'arrête dès la rencontre d'une valeur différente de "A"; il faut que la colonne A soit triée

une autre solution :

For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 1).Value = "A" And Cells(i, 2).Value <> "" Then
        x = x + 1
        Range("A" & i & ":E" & i).Copy Worksheets("RESULTAT").Range("A" & x)
    End If
Next

inconvénient (?) : le test est effectué sur toutes les valeurs de la colonne A

A+

 

[vidou]

Re : VBA copier/coller ligne sous condition

Merci je vais opter pour la solution 1