MACROS pour tirer la location principale

[LASSAAD]

Bonjour

Est ce que vous pouvez m'aider à réaliser un macro pour tirer une liste chaque fin de journée des articles avec sa location principale.

Vous trouvez plus d'explication dans le classeur joint

Avec mes remerciements
LASSAAD

 

[Robert]

Bonjour Lasaad, boujour le forum,

À près plusieurs essais je te propose cette macro assez rapide :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim dec As Long 'déclare la variable dec
Range("B2").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'boucle 1 :sur toutes les cellules éditées de la colonne B
dec = 1
For Each cel In Range("B2:B" & Range("B65536").End(xlUp).Row)
'Condition : vérifie la cellule avec la cellule en D décallée de dec lignes au dessus
If cel = cel.Offset(-dec, 2) Then
dec = dec + 1
GoTo suite 'va à la balise "suite" (sans copier la cellules des colonnes A et B)
End If 'fin condition
'copie les cellules des colonnes A et B
Range("D65536").End(xlUp).Offset(1, 0) = cel
Range("E65536").End(xlUp).Offset(1, 0) = cel.Offset(0, -1)
suite: 'balise
Next cel 'prochaine cellule de la boucle 1
End Sub

À plus,

Robert

 

[CHti160]

Salut"LASSAAD" salut"Robert"
en pièce jointe un exemple qui tu le verras ressemble à la proposition de RoRo Lol
A+++
Jean Marie

 

[LASSAAD]

Bonjour

Merci merci Robert et Jean Marie.

Je vous souhaite bonne journée

 

[LASSAAD]

Bonjour le forum

J'ai detecté deux problème lorsque j'ai changé les articles.

Vous trouvez plus d'explication dans le classeur.

Le but de ce macro est: Donner une liste de chaque article avec sa location principale.

Remarques: Il y a des articles qui ont plusieurs locations.

Avec mes salutations
lassaad

 

[Robert]

Re Lasaad, salut Jean Marie,

J' ai un peu modifié la macro de Jean MaMa et ça devrait marcher...

À plus,

Robert

 

[LASSAAD]

Bonjour Robert

Merci

bonne journée

à plus

 

[CHti160]

Salut "RoRo"
je pense que le problème est le même ce n'est pas la premiere occurence qui est retenue
je tente d'utiliser le systeme de Didier(mDf) via un tableau mais dure dure
A+++
Jean Marie

 

[CHti160]

Re " LASSAAD"
bonsoir le "FORUM"
en pièce jointe la solution tant espèrée Ouf
A+++
Jean Marie

 

[Robert]

Re Lassaad , Jean Marie, le forum,

Tu as raison Jean Marie, même modifié ça ne fonctionnait pas. Dans ma précipitation je ne m'en était pas rendu compte.

Par contre je suis revenu sur ma première macro que Lassad avait délaissée et je me suis rendu compte qu'en rajoutant des Ucase elle fonctionnait correctement.

Je vais regarder ta version 3 le Chti (je sens que ça va me plaire).

À plus,

Robert

 

[CHti160]

RE RoRO
pas encore couché
oui j'ai utilisé les cours du prof (mDf_Didier) lol
A+++
Jean Marie

 

[Robert]

Re à tous,

Finalement je me suis pas régalé, trop évolué pour mon petit cerveau la version 3. Je trouve ma version 4 plus simple même si elle est peut-être moins efficace. Et Il y a toujours un bug car la différence majuscule/minuscule n'est pas intégrée et il y a deux location pour LR170-411 et lr170-411 tout comme LR170-417 et lr170-417 qui sont le même article.

À plus,

Robert

 

[LASSAAD]

Bonjour

Merci pour votre aide, maintenant ça marche très eficacement.

Je vous salut tous.

A PLUS
merci