XL 2013 macro ne fonctionne pas

13GIBE59

XLDnaute Accro

• 2 Novembre 2015

• #2

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

 

Vote positif 0 Vote négatif

A

Arctica

XLDnaute Nouveau

• 2 Novembre 2015

• #3

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

 

Pièces jointes

• somme.xlsx

  8.7 KB · Affichages: 31
• somme.xlsx

  8.7 KB · Affichages: 34

Vote positif 0 Vote négatif

A

Arctica

XLDnaute Nouveau

• 2 Novembre 2015

• #4

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 2 Novembre 2015

• #5

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.

@+

 

Vote positif 0 Vote négatif

A

Arctica

XLDnaute Nouveau

• 2 Novembre 2015

• #6

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Novembre 2015

• #7

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

Cliquez pour agrandir...

avec ce code

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

 

Vote positif 0 Vote négatif

A

Arctica

XLDnaute Nouveau

• 2 Novembre 2015

• #8

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...

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Novembre 2015

• #9

Re : macro ne fonctionne pas

Re,

Arctica à dit:

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...

Cliquez pour agrandir...

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

à+
Philippe

 

Vote positif 0 Vote négatif