Grand besoin d'aide.!

[tiankoo]

Voici mon problème:
Premièrement quand je lance ma macro à partir de ma feuille "en-cours"
elle s’exécute dans cette feuille alors que je voudrais qu'elle s’exécute
uniquement dans la feuille "fichier_OCE".
Ensuite, je voudrais pouvoir effacer du fichier "en-cours" toutes les lignes
donc le numéro de commande et la quantité sont identiques, et la je bloque...
Quelqu'un peut-il m'aider.?
Merci d'avance

 

[jpb388]

Re : Grand besoin d'aide.!

Bonjour

Sub essai()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim ligne As Integer, Passe As Boolean
Set F1 = Sheets("EN-COURS")
Set F2 = Sheets("fichier_OCE")
If ActiveSheet.Name = F2.Name Then
F1.Columns("A:C").Range("C1").Sort Key1:=F1.Range("C2"), Order1:=xlAscending, Key2:=F1.Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
ligne = 3
Do
If F1.Range("c" & ligne - 1).Value = F1.Range("c" & ligne).Value And _
F1.Range("a" & ligne - 1).Value = F1.Range("a" & ligne).Value Then
F1.Range("a" & ligne).EntireRow.Delete shift:=xlUp
Passe = True
End If
If Passe = False Then ligne = ligne + 1
Passe = False
Loop Until F1.Range("a" & ligne).Value = ""
End If
Application.ScreenUpdating = True
MsgBox "travail effectué"
End Sub

bon courage
jp

 

[Staple1600]

Re : Grand besoin d'aide.!

Bonsoir le fil

jpb388: tu réponds au gens qui daignent même pas te saluer ?

ps: pas vu de bonjour dans le premier message de ce fil ....et je n'évoque même pas le titre de ce fil ...

 

[Guest]

Bonsoir,

Post de soutien: 100% (et même plus) d'accord avec Staple🙂🙂🙂

A+

 

[chris]

Re : Grand besoin d'aide.!

Bonjour jpb, le forum
Bise à Hasco et Stapple

Le pseudo vaut-il remerciement ???

 

[tiankoo]

Re : Grand besoin d'aide.!

Bonjour à tous.!:
Je suis vraiment désolé pour mon manque de politesse, dans tous les cas, merci beaucoup à JPB.
Bonne journée
raf

 

[tiankoo]

Re : Grand besoin d'aide.!

Bonjour,
Je suis vraiment désolé de vous embêter encore une fois mais votre fonction me fait un tri sur mes quantités.. (première colonne de la première feuille...) Elle n’efface rien même si la quantité et le numéro de colonnes sont identiques...
Pour le coup je ne comprend vraiment pas.
Merci d'avance pour votre aide.
Raf

 

[jpb388]

Re : Grand besoin d'aide.!

Bonjour
chez moi elle effectue correctement le travail a savoir

Premièrement quand je lance ma macro à partir de ma feuille "en-cours"
elle s’exécute dans cette feuille alors que je voudrais qu'elle s’exécute
uniquement dans la feuille "fichier_OCE".
elle ne travail que sur la oce

Ensuite, je voudrais pouvoir effacer du fichier "en-cours" toutes les lignes
donc le numéro de commande et la quantité sont identiques

elle efface les doublons autrement dit elle garde au moins 1 ligne

Quelqu'un peut-il m'aider.?

C'est fait

staple tu as raison désormais je serai plus vigilant sur la politesse
cordialement
jp

 

[tiankoo]

Re : Grand besoin d'aide.!

Bonjour,
Je suis vraiment vraiment désolé, c'est de ma faute, je me suis très mal exprimé...
En faite, je voudrais effacer du premier fichier les lignes identiques a celle du deuxième fichier.
En gros, effacer du premier les lignes dont le numéro de commande et la quantité sont les même que celle du deuxième.
Encore une fois désolé pour le manque de politesse;
Bonne journée

 

[tiankoo]

Re : Grand besoin d'aide.!

Ma macro repère déjà les ligne identiques dans le deuxième fichier, mais je n'arrive pas a effacer les ligne repéré du premier...

 

[jpb388]

Re : Grand besoin d'aide.!

Bonjour
pour effacer une ligne c'est:
sheets("Feuil1").Range("a1" ).EntireRow.Delete shift:=xlUp
a+
jp