VBA Copier Coller Valeur

Version imprimable

07/07/2015, 15h48
Philippe75004

VBA Copier Coller Valeur

Bonjour ,

J'ai un fichier avec un onglet 1 contenant des données et un onglet 2 et 3 qui sont vierges

Je voudrai copier coller les valeurs de l'onglet 1 vers l'onlet 2 ou 3 suivant la valeur de la Colonne A de l'onglet 1 qui détermine vers quel onglet les valeurs de l'onglet 1 doivent etre copiés

Pouvez-vous m'aider ?

Merci beaucoup.

Philippe.
07/07/2015, 16h21
Theze

Bonjour,

Tu dis :

Citation:

suivant la valeur de la Colonne A de l'onglet 1 qui détermine vers quel onglet les valeurs de l'onglet 1 doivent etre copiés

Le critère en colonne A est pour chaque ligne ou pour l'ensemble de la plage ?

Hervé.
07/07/2015, 16h23
Philippe75004

Bonjour ,

Pour chaque ligne en faite .

Par exemple dans l'onglet 1 Colonne A j'ai

A1 =3 je copie/colle les valeurs de cette ligne en onglet 3
A2=2 je copie/colle les valeurs de cette ligne en onglet 2
A3=3 je copie/colle les valeurs de cette ligne en onglet 2

ETC ...
07/07/2015, 16h36
Theze

Ou tu t'es trompé dans ton exemple ou alors, il va falloir que le compilateur soit télépathe ;)

Citation:

A1 =3 je copie/colle les valeurs de cette ligne en onglet 3
A2=2 je copie/colle les valeurs de cette ligne en onglet 2
A3=3 je copie/colle les valeurs de cette ligne en onglet 2

Hervé.
07/07/2015, 16h38
Philippe75004

Effectivement mje me suis trompé , mais pouvez vous m'aider ???
07/07/2015, 16h41
Marc-L

Bonjour,

l'idéal dans ce cas est d'utiliser soit un filtre soit un filtre avancé (~10 lignes de code) …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
07/07/2015, 16h41
Philippe75004

Effectivement mais je suis en partiel c'est pour cela que je demande je butte sur cette question lol
07/07/2015, 16h45
Marc-L

Imagine un instant si on te fournit une solution ne faisant pas partie de ton programme → UV aux chiottes ‼
07/07/2015, 16h53
Philippe75004

Pas grave ce qui compte c'est que le code marche et puis toute ma classe copie/colle des codes VBA sur le net .

Tant pis je passe à la question suivante

@+ dans le bus .

Avec un filtrage sur la colonne A de la feuille "Feuil1" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Test()
 
    Dim F1 As Worksheet
    Dim F2 As Worksheet
    Dim F3 As Worksheet
    Dim Plage As Range
 
    Set F1 = Worksheets("Feuil1")
    Set F2 = Worksheets("Feuil2")
    Set F3 = Worksheets("Feuil3")
 
    With F1
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
        Plage.AutoFilter 1, 2
 
        .AutoFilter.Range.EntireRow.Copy F2.Range("A1")
 
        Plage.AutoFilter
 
        Plage.AutoFilter 1, 3
 
        .AutoFilter.Range.EntireRow.Copy F3.Range("A1")
 
    End With
 
    Plage.AutoFilter
 
End Sub

Hervé.