Recopie feuille excel

Fermé

donlefou Messages postés 44 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 28 juin 2007 - 5 août 2005 à 10:28
Utilisateur anonyme - 5 août 2005 à 11:06

Bonjour, je voudrais savoir comment recopier certaines colonnes d'une feuille (Feuil1) excel vers une autre feuille (feuil2) excel du meme classeur, et cela suivant certains critères de colonnes de Feuil1.
- sur la feuille Feuil1, j'ai les colonnes REF, QTE, STATUT et STOCK
- sur la feuille Feuil2 (vide pour l'instant !!!), je voudrais recopier les colonnes REF et STOCK selon les conditions suivantes : STATUT = "ACTIVE" et que STOCK = un nombre et non #N/A par exemple.
Je voudrais également que la mise à jour soit automatique càd que si on modifie (ajout, suppression, changement) des lignes dans Feuil1, cela soit pris en compte dans Feuil2 (de manière automatique, sans aller dans Feuil2 et faire les changements)
Connaissez-vous le moyen le plus simple, et plus efficace de réaliser cette recopie.

A voir également:

Recopie feuille excel
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
5 août 2005 à 11:06

lut'

Bidouilles çà!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
LaDerniere = Application.Workbooks.Worksheets("Feuille1").Range("C65536").End(xlUp).Row
k = 2
For i = 2 To LaDernière
If Application.Workbooks.Worksheets("Feuille1").Range("C" & i & "").value = 1 Then
Application.Workbooks.Worksheets("Feuille1").Range("A" & i & ":C" & i & "").Copy
Application.Workbooks.Worksheets("Feuille2").Range("A" & k & "").Select
ActiveSheet.Paste
k=k+1
End If
Next i
End Sub()

Newsletters