Détection des cellules en colonne

Bonjour a tous,

pourriez vous m'aider à trouver un syntaxe qui peux aider à détecter plusieurs cellules et les coller successivement.

95 paramètres sont à disposition.

ci-dessous une figure explicative

Bonjour,

Expliques avec un peu plus de précisions ce que tu souhaites comme résultat et postes plutôt un petit fichier qu'une image !

Tu veux retrouver sur quelle ligne se situ un certain mot et récupérer celles qui se trouvent dessous ?

Par formule, par VBA ?

oui par vba

voila c'est ce que je souhaite avoir en résultat.

les a, b, c, d,e, f, g, h sont des sous paramètres qui vont étre transposé en ligne (problème résolu)

maintenant ce qui me reste c'est de sélectionner les paramètres 1, 2, 3 .....95 et les coller successivement comme indiqué sur fichier excel

Une piste :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range
    Dim Adr As String
    Dim I As Integer

    'défini la plage sur la colonne A de la feuille "Feuil1" à partir de A2
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    'effectue la recherche en partant depuis le bas de la plage
    '(ce qui permet d'effectuer la recherche à partir de A2 puisque l'argument est "Après (After)")
    Set Cel = Plage.Find("paramètre", Plage(Plage.Count, 1), xlValues, xlPart)

    'commence à la ligne 11
    I = 11

    'si trouvé, inscrit les paramètres en colonne E à partir de E11
    If Not Cel Is Nothing Then

        Adr = Cel.Address

        Do

            Cells(I, 5).Value = Cel.Value: I = I + 1

            Set Cel = Plage.FindNext(Cel)

        Loop While Cel.Address <> Adr

    End If

End Sub

je vais essayer avec merci

oui il marche bien merci juste une petite modification si je voulais copier le résultat sur une autre feuille à partir de la cellule B2?

cordialement

c'est bon je l'ai trouvé par contre ca s'exécute pas sur d'autre classeur excel que je possède déja.

dans un msg box VBA indique un message d'erreur sur cette ligne:

Set Cel = Plage.Find("paramètre", Plage(Plage.Count, 1), xlValues, xlPart)

erreur d'exécution 13

incompatibilité de type

Bonjour,

Pour que je puisse trouver la cause, il faudrait que tu postes un des autres classeurs qui génère l'erreur !

Modifie juste les données sensibles en veillant tout de même que l'erreur soit toujours produite avec ces nouvelles valeurs

vous trouvez le fichier la ou le programme s'exécute pas.

Le collage sera sur la feuille 2 à partir de la cellule B2