Discussion :

[arkyo]

Bonjour,

Dans une feuille, j'ai deux colonnes qui sont filtrées. Je souhaite copier vers une autre feuille valeur par valeur tout en insérant un certain nombre de ligne variable suivant le résultat de ma deuxième colonne associé qui correspond à mon occurrence dans le résultat de mon filtre.
Pour le moment mon code copie toutes les valeurs possibles mais avec des espacements après le collage dans ma deuxième feuille : si valeur en A1, A5, A25 alors les valeurs copiés se trouvent avec les mêmes adresses dans la deuxième feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim occurence As Range
    For Each occurence In Range("A2", [A65536].End(3)).SpecialCells(xlCellTypeVisible)
        If occurence.Offset(0, 1).Value = 1 Then
        Dim PasteCell As Range
        For I = 0 To LigneOccurence
                Set PasteCell = Sheets(CurrentDate).Range("A" & I + 2)
                occurence.Copy Destination:=PasteCell
        Next I
        End If
    Next occurence

Merci d'avance de votre aide.

Arkyo

[306xshdi]

Bonsoir,

Bizarre que tu ne trouves pas seul car tu avais bien posé le problème: "si valeur en A1, A5, A25 alors les valeurs copiés se trouvent avec les mêmes adresses dans la deuxième feuille."

Il faut que tu utilises une nouvelle variable pour le numéro de ligne de destination !

Tu la mets à 1 avant la boucle et tu l'incrémentes à chaque passage et une fois l'action effectuée

[arkyo]

Oui je ne sais pas pourquoi, je savais avant de poster que ce n'était pas grand chose mais je crois que œil n'a pas vue ce que je devrai voir. Merci de ton conseil.

Arkyo