Recopie feuille excel
donlefou
Messages postés
44
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
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.
- 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
- Word et excel gratuit - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Si ou excel - Guide
1 réponse
lut'
Bidouilles çà!
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()
