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:eek:
 

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:eek:
 

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 :D,

Une autre suggestion, moins élégante :eek:, 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+
 

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

Statistiques des forums

Discussions
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin