Recuperer Ligner En Fonction De Certaines Valeurs

[jeanphi]

Bonjour


Quelqu'un peut t'il m'aider?
Tout est expliqué dans le fichier joint
Merci 🙂

 

[bqtr]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir jeanphi

Voici une façon de faire correspondant à l'exemple que tu as mis en PJ.

Sub relance()

Dim cell As Range
Dim D As Date, D1 As Date

Application.ScreenUpdating = False
D = Date

With Sheets("relance")
.Range("C14" & ":" & "D" & .Range("D65536").End(xlUp).Row + 1).Clear
End With

For Each cell In Sheets("Feuil1").Range("E13:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
   D1 = cell.Value + 10
      If D = D1 And cell.Offset(0, -1).Value = "en traitement Achats" Then
         cell.Offset(0, -2).Copy Sheets("relance").Range("C" & Sheets("relance").Range("C65536").End(xlUp).Row + 1)
         cell.Offset(0, 2).Copy Sheets("relance").Range("D" & Sheets("relance").Range("D65536").End(xlUp).Row + 1)
      End If
Next
Application.ScreenUpdating = True

End Sub

Bonne fin de soirée

 

[jeanphi]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

bonjour

et merci bcp, ca marche!!! 🙂
bonne journée
cdlt

 

[jeanphi]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

bonsoir bqtr

la macro que tu m'as communiqué est super mais j'ai modifié le fichier originel ci-joint et j'aimerais pouvoir l'adapter en conséquence (tout ce que je souhaite est expliqué dans le fichier)
peux tu modifier lstp e code pour l'adapter à ce que je souhaite réaliser???????
ce serais vraiment cool de ta part car j'ai essayé mais n'étant pas un pro comme toi je galère 😉
merci bcp
cdlt
JP

 

[bqtr]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonjour jeanphi, le forum

En PJ ton fichier modifié en fonction de ton exemple.

Bonne journée

 

[jeanphi]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

bonsoir le forum et encore merci pour votre aide

mais j'ai encore besoin de quelques petites améliorations 😱

1) je souhaite que la macro relance me récupère aussi le nom de l'acheteur (colonne N) pour le copier dans la colonne F de la feuille relance puis qu'ensuite la macro trie les lignes en fonction du nom de l'acheteur tout en insérant une ligne (colorée de préférence) entre chaque changement du nom de l'acheteur


2) ensuite je souhaiterais insérer un combobox dans la feuille Outils qui récupèrerait les valeurs de la colonne Q (date commande) de la feuille FEB
en sélectionnant une des valeurs du combobox, je souhaiterais ouvrir mon client de messagerie (lotus) et que le texte suivant "la date de livraison du matériel portant le numéro de commande & valeur colonne R & est prévue le & valeur colonne T &

si vraiment vous arrivez à me débloquez çà je dis respect! 🙂
bon week end à tous en espérant pouvoir trouver une solution à mon problème

 

[bqtr]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Re,

Voici la modif pour ta première question.
J'ai rajouté une macro (Tri_InserLigne) qui trie et insert les lignes en couleur.
Pour changer la couleur modifie le nombre après : Interior.ColorIndex = ??
Actuellement c'est 35, les couleurs vont de 1 à 46 (enfin je crois ou 44 ??? )

Pour la deuxième question, là je ne sais pas encore faire ca 🙁

Bonne nuit

 

[jeanphi]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonjour PO

Encore merci pour ton aide mais c'est pas tout à fait ce que je souhaite
En effet je souhaite qu'une ligne s'insère dès que les initiales de l'acheteur change alors que là la macro insére systématiquement une ligne 😉
par ailleurs

j'en profite pour te demander une autre petite amélioration qui doit être très simple pour toi:
je souhaite faire deux macros de relance achats:
- l'une est celle que tu as déjà faite mais je veux rajouter la variable suivante: que la commande (colonne r) n'a pas été faite
- l'autre serait basée sur le même principe sauf que la commande a été faite mais que la date de livraison (colonne t) n'est pas encore connue

peux tu m'aider PO?
encore merci à toi cdlt