Condition

J

jeanphi

XLDnaute Occasionnel

• 14 Décembre 2007

• #16

Re : Condition

Bonjour PJ

Voici le lien
http://cjoint.com/?mojq2nkeU6
Encore merci pour ton aide, c'est vraiment sympa 🙂
Bonne journée!!!!!!

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 17 Décembre 2007

• #17

Re : Condition

bonjour pj


ton lien est t il bon?
je tombe sur la page d accueil!!
merci
bonne journée

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Décembre 2007

• #18

Re : Condition

bonjour jeanphi

le lien est excellent
par contre il n'est pas facile de modifier un fichier dont le Vba est protégé par mot de passe !!!!

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 17 Décembre 2007

• #19

Re : Condition

oh sorry pj
le password est plage 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Décembre 2007

• #20

Re : Condition

Voila

il suffisait d'adapter

.Range("T8:T" & Sheets("FEB").Range("I65536").End(xlUp).Row)

dans to fichier les chiffres commencent colonne T ligne 8

 

Pièces jointes

• T.zip

  38.4 KB · Affichages: 21
• T.zip

  38.4 KB · Affichages: 20
• T.zip

  38.4 KB · Affichages: 21

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 18 Décembre 2007

• #21

Re : Condition

PJ


Désolé mais çà ne fonctionne pas
Si tu regardes la feuille commande, il m'extrait les lignes 3,4 et 7, qui ne correspondent pas aux critères demandés à savoir colonne I +20000 🙁
Je ne comprends plus rien!!! 🙁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Décembre 2007

• #22

Re : Condition

bonjour jeanphi

ça fonctionne si tes données en colonne T sont des nombres!!!!
pour plus de sureté j'ais modifié la macro pour qu'elle evalue le contenu ,mais il est preferable que tu veilles a n'avoir que des nombres

 

Pièces jointes

• T.zip

  38.4 KB · Affichages: 14
• T.zip

  38.4 KB · Affichages: 15
• T.zip

  38.4 KB · Affichages: 15

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 18 Décembre 2007

• #23

Re : Condition

je suis d'accord avec toi sur ce point pj
mais cette condition ne fonctionne pas!!!:
If cell.Offset(0, 0).Value > (cell.Offset(0, -11).Value) + 20000 Then
cell.Offset(0, -18).Copy Destination:=Sheets("Commande").Range("A" & Sheets("Commande").Range("A65536").End(xlUp).Row + 1)


si je rajoute 20000 de plus à un nombre de la colonne T par rapport à la colonne I et bien la macro ne me copie pas pour autant le numéro de la colonne B sur la feuille commande! 🙁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Décembre 2007

• #24

Re : Condition

re

oui car la condition c'est > (superieur)
en ajoutant 20000 tu obtiens =(egal)
si ta condition n'est plus superieur mais superieur ou egal alors tu modifie

Code:

If cell.Offset(0, 0).Value [COLOR=red]>=[/COLOR] (cell.Offset(0, -11).Value) + 20000 Then

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 19 Décembre 2007

• #25

Re : Condition

ok merci pj!!🙂

 

Vote positif 0 Vote négatif