Recopier une colonne si condition remplie

Le 21/08/2013 à 17:51

Bonjour à tous,

Enième petite question ....

je possède un tableau où en feuille 2 par exemple :

colonne A NOMS

colonne B PRENOMS

etc

COLONNE F VILLE

j'aimerais qu'en feuille 1 , tous les noms dont la ville est paris se recopient automatiquement

savez vous comment je peux faire ?

merci à tous

Le 21/08/2013 à 21:10

Bonsoir,

A l'aveugle...

Option Explicit

Sub recopie()
Dim lRow%, i%
  lRow = Sheets(1).Range("F" & Rows.Count).End(xlUp).Row + 1
  For i = 2 To Range("F" & Rows.Count).End(xlUp).Row
    If UCase(Range("F" & i)) = "PARIS" Then
      Rows(i).Copy Sheets(1).Rows(lRow)
      lRow = lRow + 1
    End If
  Next
End Sub

Cdt,

Darzou

Le 21/08/2013 à 22:55

hello !!

merci beaucoup ! j'essaie ça dès demain

@ +

Le 24/08/2013 à 18:48

deux petites questions car je ne connais rien en VBA

où dois-je insérer ce code ? (feuille où sont les données ou feuille où je veux que cela se copie?)

Si je souhaite que cela se recopie sur la feuille 2 saisie mais à la fin en dessous de mon tableau (à partir de la ligne 13696)

comment l'indiquer dans la macro ?

merci encore