XL 2013 macro ne fonctionne pas

[Arctica]

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 mettre 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?

 

[13GIBE59]

Re : macro ne fonctionne pas

Bonjour Arctica,

Te dire ce qui ne va pas dans ton code, sans fichier, reste compliqué, d'autant que ton titre est peu explicite sur ce qui ne fonctionne pas dans ta macro.

Dans le code partiel que tu nous fournis, il manque :
Next (car il y a un For)
End if (car il y a un If)
End With (car il y a un With).

Bon courage.

JB

 

[Arctica]

Re : macro ne fonctionne pas

Bonjour,


voici le fichier en question
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
End if
Next
End With

 

[Arctica]

Re : macro ne fonctionne pas

Bonjour,
j'essaye ici une méthode plus simplifiée mais qui ne marche pas non plus

Dim PlageRecherche As Range
With ActiveSheet
Set PlageRecherche = .Range("A:A").Find(what:="Annulé", LookIn:=xlValues, lookat:=xlWhole)
If Not PlageRecherche Is Nothing Then
"la valeur est trouvée "
Cells("annulé", Columns.Count).End(xlToLeft).Copy Destination:=Range("o1")
"ma cellule Annulé a été trouvé et je veux donc selectionner la derniere cellule non vide de la ligne trouvée pour la copier en O1 mais cela ne fonctionne pas car incompatibilite de type"

End if
End With
End Sub

 

[cathodique]

Re : macro ne fonctionne pas

Bonjour,

Pas vraiment compris tes attentes. Peux-tu donner un exemple des données de départ et du résultat escompté, ça sera plus simple à comprendre.

Tu as complété ton code, mais tu affectes une plage "PlageRecherche", avec find= ListSh avant de définir ton tableau ListSh.

@+

 

[Arctica]

Re : macro ne fonctionne pas

Bonjour,

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")
End If
End With
Merci pour votre aide

 

[phlaurent55]

Re : macro ne fonctionne pas

Bonjour à tous,

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")

avec ce code

For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule = "Annulé" Then
Range("O1") = Cells(cellule.Row, Range("G" & cellule.Row).End(xlToLeft).Column)
Exit Sub
End If
Next cellule

à+
Philippe

 

[Arctica]

Re : macro ne fonctionne pas

Merci Philippe de ton aide , comment écrire la dernière cellule de la ligne parce que tu fais allusion a G et mon tableau peut avoir une ou 2 colonne en plus...

 

[phlaurent55]

Re : macro ne fonctionne pas

Re,

Merci Philippe de ton aide , comment écrire la dernière cellule de la ligne parce que tu fais allusion a G et mon tableau peut avoir une ou 2 colonne en plus...

il suffit de remplacer G par la lettre de la dernière colonne concernée

à+
Philippe