Discussion :

[Philippe75004]

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.

[Theze]

Bonjour,

Tu dis :

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é.

[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 ...

[Theze]

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

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é.

[Philippe75004]

Effectivement mje me suis trompé , mais pouvez vous m'aider ???

[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

[Philippe75004]

Effectivement mais je suis en partiel c'est pour cela que je demande je butte sur cette question lol

[Marc-L]

Imagine un instant si on te fournit une solution ne faisant pas partie de ton programme → UV aux chiottes ‼

[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 .

[Theze]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.