Discussion :

[rafale67]

bonjour,

A l'aide d'une liste je souhaiterai tester la colonne A Si je trouve le nom équivalant dans la colonne, je souhaiterai en sélectionner la dernière cellule non vide et la copier en en colonne L pour les 4 premier et en colonne M pour les 4 suivant
Voici mon code
With ActiveSheet
Set PlageRecherche = .Range("A:A").Find(what:=ListSh, LookIn:=xlValues, lookat:=xlWhole)
ListSh = Array("Annulé", "Chargé sur camion", Expédié/Facturé", "Pesé", "Désélectionné", "Emballage terminé", "En cours d'emballage", Imprimé" )
For i = PlageRecherche.End(xlUp).Row To 1 Step -1
Set PlageRecherche = .Range("A:A20").Find(what:=ListSh, LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then
Cells(1, Columns.Count).End(xlToLeft).Select
pouvez vous m'aider?

[rafale67]

Pour obtenir le résultat recherche j'ai simplifiée la macro mais elle ne fonctionne pas pour incompatibilité de type (dernière ligne)donc: avec la méthode find je recherche une valeur dans la colonne A si je la trouve (ici Annulé), je voudrais sélectionner la dernière cellule non vide de la ligne de la valeur recherchée et coller cette cellule en cellule range ("o1")voici la macro:

Dim PlageRecherche As Range
With ActiveSheet
Set PlageRecherche = .Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then
Range("annulé", Columns.Count).End(xlToLeft).Copy Destination:=Range("o1") "cette ligne me dis incompatibilité de type
End If
End With

Merci pour votre aide