Remplir des cellules d'une feuille à partir d'un choix de données sur une autre feuille. [Résolu]

[maharo1]

Bonjour,

je voudrais vous soumettre mon problème:
dans mon fichier ,j'ai des données dans ma première feuille et
je cherche à les mettre dans ma deuxième feuille via macro.
mon soucis c'est que j'ai une colonne en ordre croissante ou il y a répétition de valeur comme ci-joint
120 -17
120
120 16
121 -17
121
121 16
et à coté droit c'est les valeurs à mettre dans mon deuxième feuille
dans mon deuxième feuille j'ai reproduit ces valeurs sur une colonne sans qu'il y ait répétition .
après j'ai deux colonnes nommés gauche et droite dans ma deuxième feuille où je veux mettre
les données -17 et 16 ,ces valeurs n'est pas forcement -17 et 16.
j'ai essayé avec un macro mais les valeurs commencent à défiler sur les cellules dans mon deuxième feuille sans que il n'y a aucun résultat à la fin.

Salutation.

[gFZT82]

Bonjour,

Voici un code qui te permettra d'avancer.
J'ai placé quelques commentaires pour expliquer l'utilité des instructions.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Sub RemplirArase()
Dim DerLig As Long, i As Long
Dim Colonne As Byte, LigneDebut As Byte, LigneCible As Long
    With Worksheets("Impl. Terre")
        LigneDebut = 4 'Première ligne de données dans la feuille "Impl. Terre"
        LigneCible = 6 'Première ligne de données dans la feuille "DistArase"
        'Recherche de la dernière ligne renseignée dans la colonne A de la feuille "Impl. Terre"
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        'On boucle sur toutes les données concernées de la feuille "Impl. Terre" _
        en suivant un pas de 5 correspondant au nombre de données par profil.
        For i = LigneDebut To DerLig - 4 Step 5
        'On copie les 3 données
            Worksheets("DistArase").Cells(LigneCible, 2) = .Range("A" & i) 'Distance arase/axe - Gauche
            Worksheets("DistArase").Cells(LigneCible, 3) = .Range("A" & i).Offset(4, 0) 'Distance arase/axe - Droite
            Worksheets("DistArase").Cells(LigneCible, 1) = .Range("A" & i).Offset(0, 3) 'Profil
            LigneCible = LigneCible + 1
        Next
    End With
End Sub

Cordialement.

[maharo1]

Merci bien,

Ca marche ,

Cordialement