Sujet Précédent Sujet Suivant

Macro sou excel, Visual Basic

Résolu/Fermé
cc - 4 sept. 2010 à 19:18
 cc - 4 sept. 2010 à 23:07
Bonjour,
je souhaite créer une petite macro en vba pour excel, pour faire ceci:

je récupère sous une feuille Excel des lignes qui contiennes par exemple à la colonne "C" une cellule avec comme info : HO_ DJHP_ FGT_ ,
à la ligne suivante il n'y a peut être rien dans la cellule de la "C" puis encore dessous il n'y a peut être que FGT_.....etc...
il y a systématiquement un _ à la fin des lettres puis un espace pour séparateur.

Comment faire pour rechercher si une des infos est présente dans une ligne et si cela est le cas alors recopier l'info dans une autre colonne plus à droite mais même ligne.
Et ainsi de suite pour chaque type de code ( HO_ puis DJHP_ puis FGT_).

Si possible chaque info trouvée sera recopiée dans une colonne différente ( dans notre exemple il y aura une colonne pour HO_ puis une autre pour DJHP_ etc ....

merci pour votre aide



A voir également:

1 réponse

Réponse 1 / 1
cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
4 sept. 2010 à 22:00
Bonjour,

Essaie avec le code ci-dessous : 

Sub extraire()
Dim FirstAddress As String
Dim C As Range
Dim ATrouver, Atr
Dim J As Byte
Application.ScreenUpdating = False
ATrouver = Array("HO_", "DJHP_", "FGT_")
J = 3
With Sheets("Feuil1")
    .Columns("F:H").ClearContents
    For Each Atr In ATrouver
        .Cells(1, J + 3).Value = "Contenant " & Atr
        Set C = .Columns(3).Find(Atr, LookAt:=xlPart)
            If Not C Is Nothing Then
                FirstAddress = C.Address
                Do
                C.Offset(, J).Value = Atr
                Set C = .Columns(3).FindNext(C)
                Loop While Not C Is Nothing And C.Address <> FirstAddress
            End If
        J = J + 1
    Next Atr
    .Columns("F:H").AutoFit
End With
End Sub


Et voici un petit fichier exemple :

http://www.cijoint.fr/cjlink.php?file=cj201009/cijCncsd09.zip

Bonne nuit
0
cc
4 sept. 2010 à 23:07
merci pour ton aide, ça marche nickel !

vraiment c'est c'est sympa
bonne nuit également mec.....
0