Copie sélective

Bonjour le forum,

Tout d'abord bonne fêtes de fin d'année à tous.

Voilà j'aimerai savoir s'il est possible de réaliser une copie sélective de données. Afin de faciliter la compréhension de ma question je vous joins un bout de fichier.

Le but étant de saisir des données dans la feuille pricipale (Feuil1), et que celles ci soient recopiées en fonction du secteur concerné.

Je reste à votre disposition pour toute question.

Merci d'avance

Cordialement

Sdenis92

Bonsoir à tous,

code à mettre dans un Module

Sub Classe()
'par Claude pour "sdenis92" le 30/12/09
Dim DerL%, Lg%, Cel As Range
    DerL = Range("A65536").End(xlUp).Row
        Application.ScreenUpdating = False
    For Each Cel In Range("b3:b" & DerL)
            Lg = Cel.Row
            Range(Cells(Lg, 1), Cells(Lg, 4)).Copy
        With Sheets("Secteur " & Cel).Range("A65536").End(xlUp)(2)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
            Application.CutCopyMode = False
    Next Cel
End Sub

Amicalement

Claude.

Bonsoir

Pour les réfractaires à VBA, une solution par formules

Cordialement

Bonsoir Dubois, Bonsoir Amadéus,

Tout d'abord un grand merci à tous les deux pour ces deux solutions différentes.

Pour être franc je préfère la solution avec formule à celle en VBA, après il s'agit d'un point de vue totalement personel. Disons que je comprends plus vite les formules que le code VBA. De plus j'ai relevé un petit un petit souci sur la version VBA. Quand je saisi une valeur, ensuite je clic sur "go" et si je m'aperçois que je me suis trompé, j'efface dans ma feuille principale, je reclic sur "go" pour mettre à jour mais ma ligne est toujours copiée sur la feuille secteur. Et deuxième petit point, si je clic deux fois sur "go", ça recopie à nouveau les lignes de la feuille principale.

Quoiqu'il en soit je vous remercie énormément du temps que vous avez accordé pour m'aider à solutionner mon problème.

Cordialement

Sdenis92.

re,

Oui, il aurait fallu le fichier réel, ajouter des contrôles et possibilité de revenir en arrière,

on fait çà sur un vrai fichier, pas une ébauche.

Le principal c'est que tu as ta solution

Bonjour,

Une autre solution, mais également par macro....

Cependant, elle a le mérite de prendre en compte les "erreurs" de frappe...

Tout est basé sur l'utilisation des filtres élaborés

Juste pour le fun....

Meilleurs Voeux pour 2010 (j'y suis dans 08 heures.....)

Bonjour a tous,

Merci Cousinhub pour cette troisième solution. Je vais essayer d'importer une des solutions dans mon projet final, et voir celle qui correspond le mieux à ce que je souhaite obtenir, ou plutot celle que je vais réussir à réexploiter car comme le dit Dubois, il y ne s'agit pas de la même chose entre une ébauche et le projet final.

En tout cas merci à vous pour votre aide.

Passez de bonne fin de fin d'année et bon passage en 2010 à tous.

Cordialement

Sdenis92