Discussion :

[frisette68]

Bonsoir,

Je débute en vba, je souhaite faire une copie conditionnelle avec la fonction case.

J'ai un tableau avec beaucoup de lignes. La colonne K contient 11 mots différents, par exemple Foyer, voyage, Repas, etc...
Pour chacun de ces mots j'ai une feuille correspondante dans le même classeur.

En fonction du mot inscrit dans la colonne K je souhaiterai copier la ligne entière (de la colonne A à J) sur la feuille correspondante au même mot.

Et aussi qu'à chaque fois il y ait une incrémentation d'une ligne pour ne pas effacer les valeurs copier les fois précédentes.

Merci de votre aide.

[fring]

Bonjour,

Voici une possibilité.
Attention dans cette version, bien respecter la Case entre les valeurs de la colonne K et les noms des feuilles voyage et Voyage n'est pas la même chose

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
Sub fring()
Dim i%, j%
For i = 1 To Range("K65535").End(xlUp).Row
    For j = 2 To Sheets.Count
    If Sheets(j).Name = Cells(i, 11).Value Then
    Range(Cells(i, 1), Cells(i, 10)).Copy
        If Sheets(j).Range("A1") = "" Then
        Sheets(j).Range("A1").PasteSpecial Paste:=xlValues
        Else
        Sheets(j).Range("A65535").End(xlUp)(2).PasteSpecial Paste:=xlValues
        End If
    End If
    Next j
Next i
Application.CutCopyMode = False
End Sub

@+