Condition

[jeanphi]

Bonjour

Dans le fichier joint, je souhaite que les valeurs de la feuille "FEB" de la colonne B se copient sur la colonne A de la feuille "Commande" si la condition suivante est respectée:
Je veux que si la valeur de la colonne T est supérieure à la valeur de la colonne I + 20000 alors la valeur de la colonne B se copie dans la feuille "Commande"
Par ailleurs j'ai un autre souci:
Dans la colonne T, j'ai parfois des points d'interrogation si je ne connais pas le prix
Du coup, ma macro interprète ces lignes comme une valeur numérique et considère la cellule comme supérieure à la cellule de la colonne I
Comment régler ces problèmes SVP?
Merci

 

[jeanphi]

Re : Condition

Bonjour PJ

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

 

[jeanphi]

Re : Condition

bonjour pj


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

 

[pierrejean]

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

 

[jeanphi]

Re : Condition

oh sorry pj
le password est plage

 

[pierrejean]

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

 

[jeanphi]

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

 

[pierrejean]

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

 

[jeanphi]

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!

 

[pierrejean]

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

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

 

[jeanphi]

Re : Condition

ok merci pj!!