Macro élection/collage tableau en fonction d'un critère

Bonjour à tous,

j'ai une macro VBA à faire dont le but est de copier des lignes suivant un texte qui les précèdent et de les copier les unes à la suite des autres dans une feuille qui leur correspond. Le texte en question est "BLOC1", "BLOC2", [...], "BLOC9" qui est suivi d'un certain nombre de lignes (à copier). Les "BLOCX" peuvent apparaitre plusieurs fois dans le fichier, ils doivent dans ce cas être placés les uns à la suite des autres dans la feuille correspondante.

J'ai cherché une solution pour recherche le texte en question, sélectionner le texte depuis la cellule suivante jusqu'au texte suivant mais je n'ai rien programmé de concluant. J'ai joint un fichier qui contient des explications qui vous aideront à mieux cerner le problème.

Un grand merci à celui qui pourra m'apporter son aide !

PS: j'ai recherché sur le forum des situations similaires sans toutefois réussir à les adapter.

35keplerexemple.xlsm (21.77 Ko)

Bonjour,

un essai voir si cela te convient.

Cordialement.

30keplerexemple.xlsm (29.11 Ko)

Bonsoir le forum,

Une autre version :

Option Explicit

Sub Copier()
Dim myAreas As Areas, myArea As Range, derlig As Long, feuille As String
    Application.ScreenUpdating = False
    On Error Resume Next
    Set myAreas = Sheets("Base").Columns(1).SpecialCells(2, 1).Areas
    On Error GoTo 0
    If myAreas Is Nothing Then Exit Sub
    For Each myArea In myAreas
        feuille = myArea.Cells(0)
        With Sheets(feuille)
            derlig = .Range("A" & Rows.Count).End(xlUp).Row
            If derlig = 1 Then
                myArea.Resize(, 4).Copy .Cells(1, 1)
            Else
                myArea.Resize(, 4).Copy .Cells(derlig + 1, 1)
            End If
        End With
    Next
    Set myAreas = Nothing
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

klin89

Merci bigdaddy154 et Klin89, vos solutions me conviennent toutes les deux !

C'est exactement le résultat que je recherchais et vos macro sont de plus facile à adapter.

Rechercher des sujets similaires à "macro election collage tableau fonction critere"