Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier des ligne d'un onglet a un autre en fonction de certains critères

manpower

XLDnaute Nouveau
salut je suis debutant en vba excel,je souhaiterais que ma macro copie chaque ligne de ma feuille traitement vers les onglet concerné en fonction des valeur de la colonne C a savoir: BR vers onglet a,CR vers onglet b et VT vers onglet c.
voici un fichier pour plus d'explication
merciii
 

Pièces jointes

  • Classeur2.xlsm
    10.4 KB · Affichages: 60
  • Classeur2.xlsm
    10.4 KB · Affichages: 83
  • Classeur2.xlsm
    10.4 KB · Affichages: 83

Paritec

XLDnaute Barbatruc
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonsoir manpower le forum
ton fichier en retour tu ouvres tu cliques copier et tu me redis
a+
Papou
 

Pièces jointes

  • Manpower V1.xlsm
    24.9 KB · Affichages: 81

Paritec

XLDnaute Barbatruc
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonsoir manpower le forum
ton fichier en retour tu ouvres tu cliques copier et tu me redis
j'ai rajouté un bouton effacer comme cela tu pourras tester que cela marche bien en copie et en effacement
a+
Papou
 

Pièces jointes

  • Manpower V2.xlsm
    27.9 KB · Affichages: 62

DoubleZero

XLDnaute Barbatruc
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonjour, manpower, le Forum, bonjour + bises, papou ,

Une autre suggestion, moins élégante , en pièce jointe (code dans "ThisWorkbook").

A bientôt
 

Pièces jointes

  • 00 - manpower - Données exporter.xls
    43 KB · Affichages: 74

Efgé

XLDnaute Barbatruc
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonjour manpower, Bonjour Paritec , Bonjour 00
Surtout pour saluer les ami(e)s, en repartant du code de 00

VB:
Private Sub Workbook_SheetActivate(ByVal o As Object)
Dim crit As String


Select Case o.Name
    Case "a"
        crit = "BR"
    Case "b"
        crit = "CR"
    Case "c"
        crit = "VT"
End Select


If crit <> "" Then
    o.Cells.Clear
    With Sheets("traitement")
        .[a:d].AutoFilter Field:=3, Criteria1:=crit
        .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy o.[a1]
        .[a:d].AutoFilter
    End With
End If


End Sub

Cordialement
 

Rep

XLDnaute Junior
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonsoir,

Sinon, encore plus rapide :
- 1 filtre sur le critère sélectionné
- 1 sélection de la zone
- alt + ;
- copier puis coller dans l'autre feuille !

A+
 

Paritec

XLDnaute Barbatruc
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

Bonjour Manpower Rep 00 fred le forum,
Plus rapide que clicker sur un bouton ???????
là il faut m'expliquer..........
a+
Papou
 

manpower

XLDnaute Nouveau
Re : copier des ligne d'un onglet a un autre en fonction de certains critères

slt merci pour vos reponse,paritec j'ai testé ta macro ca marche tres bien mais je souhaiterais que a chaque execution de cette macro elle ajoute le donnée au fur et a mesure sans les supprimés,car l'objectif c d les conservées.merci
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…