macro ne fonctionne pas

Version imprimable

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:

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

bonjour

Code:

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:

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

02/11/2015, 16h48
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
03/11/2015, 07h57
bboy-eazy

Une liste de critère sur quoi?

J'ai pas bien compris ce que tu veux faire maintenant
03/11/2015, 15h06
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....
03/11/2015, 15h39
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:

application.screenupdating = false

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:

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.

Citation:

Envoyé par rafale67

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.