Discussion :

[rafale67]

Bonjour
suis je dans la bonne section ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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")
 End If
 End With

Merci pour votre aide

[bboy-eazy]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PlageRecherche As Range
Dim n As Long
With ActiveSheet
Set PlageRecherche = .Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then
n = PlageRecherche.Row
.Range(.Cells(n, 1), Cells(n, Cells(n, Cells.Columns.Count).End(xlToLeft).Column)).Copy Destination:=.Range("o1")
End If
End With

EDIT: POur copier que la dernière cellule de la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PlageRecherche As Range
Dim n As Long
With ActiveSheet
Set PlageRecherche = .Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then
n = PlageRecherche.Row
Cells(n, Cells(n, Cells.Columns.Count).End(xlToLeft).Column).Copy Destination:=.Range("o1")
End If
End With

[rafale67]

merci bboy-eazy pour ton aide,
est ce qu'il y a moyen de faire une liste de critères ou dois a chaque fois réécrire ta partie qui fonctionne bien avec un autre critère

[bboy-eazy]

Une liste de critère sur quoi?

J'ai pas bien compris ce que tu veux faire maintenant

[rafale67]

Bonjour bboy-eazy

comme j'avais non pas 1 mais 4 valeurs a rechercher (Annulé, Chargé sur camion, Expédié/Facturé et Pesé) et a traiter avec une destination différente , j'ai d'abord retranscrit ta macro entièrement 4 fois , mais je me suis dis que je pourrai peut être la raccourcir un peu, alors j'ai supprimé le end with et le with activesheets entre chaque cas, (je l'ai conservé a la fin,) j'ai pensé a une liste a créer du style array dont la macro se servirait pour appelé les valeurs une a une avec une boucle du style : si tu trouve la valeur "annulé" tu copie la valeur de la derniere cellule de la ligne de la valeur trouvée en O1 sinon tu cherche la deuxieme valeur et tu copie la valeur de la derniere cellule de la ligne de la valeur trouvée en o2 et ainsi de suite, et cela pour diminuer la longueur de la macro....

[bboy-eazy]

Oui c'est surement possible mais la je ne maitrise pas trop les array.

Je passe la main aux pros

du coup avec ma méthode tu es obligé de copier 4 fois le code. Pas sur que tu perdes vraiment du temps.

ajoute en début de procédure un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.screenupdating = false

[Menhir]

Le With ActiveSheet (et le End With qui va avec) ne sert à rien.
C'est implicite.

Si tu l'enlèves, n'oublie pas d'enlever aussi dans le code les "." devant les objet qui y faisait référence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Plage As Range
Set Plage = Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then Cells(Plage, Cells(Plage, Columns.Count).End(xlToLeft).Column).Copy Destination:=.Range("o1")

Je me demande s'il n'y a pas un Cells encore en trop dans la dernière ligne. Mais comme je ne sais pas exactement ce qu'elle doit faire, je le laisse comme ça.

est ce qu'il y a moyen de faire une liste de critères

Oui, c'est possible mais pour une seule ligne de code et seulement 4 critères, ça ne vaut pas le coup. Ca ne ferait que compliquer ton code.