Renvoyer des cellules dans une autre feuille en fonction de criteres

Bonjour,

Je viens vers vous car j’ai besoin de créer une macro, et vu mon niveau débutant et mes exigences cela semble tres compliqué.

Dans mon onglet « Base de donnée », je vais avoir des centaines de chassis, j’ai simplifié en remplaçant les trois premiers par (AAA1,AAA2,AAA3), il faudrait enfait lorsque la macro reconnait un service Handling dans la base de données, elle vienne afficher le chassis et le modele dans l’onglet « Feuil1 », en face du service Handling, et ce pour tous mes chassis.

J’ai essayé de débuter quelque chose avec un tant que et une boucle puisque mes Handling en Feuil1 sont espacé d’un intervalle de 10lignes à chaque fois, mais je ne m’en sort pas..

Pensez vous pouvoir m’aider ?

Cdt,

Guillaume

Bonjour,

Essaie ceci :

Sub Handling()
    Dim i%, iB%, ChM, ws As Worksheet
    Set ws = Worksheets("Feuil1")
    iB = 2: i = 2
    With Worksheets("Base de données")
        Do While .Cells(iB, 1) <> ""
            ChM = .Cells(iB, 1).Resize(, 2).Value
            ws.Cells(i, 5).Resize(, 2).Value = ChM
            i = i + 10: iB = iB + 1
            Do While .Cells(iB, 1) <> ""
                If .Cells(iB, 2) <> "" Then Exit Do
                iB = iB + 1
            Loop
        Loop
    End With
End Sub

Cordialement.

Bonjour MFerrand,

Parfait c'est exactement ce qu'il me fallait !

Merci à vous,

Cordialement,