Automatisé une formule
bonjour je voudrai réalisé un code avec VBA pour que la formule s'automatise a l aide d'une macro sur plusieurs cellules sans les taper a la main comme sur la photo ci-dessous
=SI(P7="";"out";SI(K7=M7;SI(N7>0;SI(N7-L7>0;N7-L7;"avance");SI(Q7=K7;R7-L7;"report ou annul"));"report ou annul"))
merci
Bonjour,
tu cliques sur une des cellules de tes données
INSERTION/TABLEAU
et à chaque ligne, tes données auront la formule avec ses indices
bonjour je voudrai juste faire une macro pour évité votre proposition car sur des milliers de cellule cela peut être très long
Re,
Ouais, et comment je sais sur qu'elle cellule se trouve la formule
ICI, c'est pas un forum sur la photo
Regarde un peu où je trouve des références de cellules
la formule =SI(P7="";"out";SI(K7=M7;SI(N7>0;SI(N7-L7>0;N7-L7;"avance");SI(Q7=K7;R7-L7;"report ou annul"));"report ou annul"))
est sur la premier colonne en jaune est permet de calculé l'avance ou le retard (combien de temps ) des camion a l 'aide des horaire de pointage retransmit sur un fichier excel
Re,
Pas très plus explicite, sans voir les lignes BREF quand on aime les photos, on fait de la photo
A tester sans trop de conviction (à mettre dans la feuille concernée)
Sub test()
Dim F$, Dl%
Dl = Range("K" & Rows.Count).End(xlUp).Row
F = "=IF(RC[6]="""",""out"",IF(RC[1]=RC[3],IF(RC[4]>0,IF(RC[4]-RC[2]>0,RC[4]-RC[2],""avance""),IF(RC[7]=RC[1],RC[8]-RC[2],""report ou annul"")),""report ou annul""))"
Range("J7").Formula = F
Range("J7").AutoFill Destination:=Range("J7:J" & Dl), Type:=xlFillDefault
End Submerci beaucoup votre code marche juste le temps de retard il me le calcul avec des 0.13889 on lieu de 20 min
par exemple ligne 13
Re,
Si mon code fonctionne pour la recopie des formules, c'est bien
Pour l'erreur, cela vient de votre formule que j'ai recopié à l'intégrale (d'ailleurs il vous suffit de la visionner dans la barre de formule)
Et comme, avec vous, on ne travaille que sur des ,
je ne pas faire mieux
A moins que tu penses que si tu changes le format de cellules en colonne J en heures
pouvez-vous me code cette formule en code VBA SVP
=+SI(J8="out";"out";SI(OU(J8="avance";J8="report ou annul");J8;SI(J8<$Y$1;"moins de 30mn";SI(J8<$Y$4;"moins de 4h";"plus de 4h"))))
Re,
Purée Rogerrrr !!!!!!!!!!!!!!!!!!!!!!!!!!!
Tu ne dis pas sur quelle cellule doit s'appliquer ta formule
Quand tu poses une question, pense simplement que l'on n'est pas derrière ton dos et que l'on voit tout ce qu'il se passe sur ton écran
Explique ou place un classeur bon sang
cette formule s'applique sur la cellule w (colonne jaune )
Re,
Replace cette macro à la place de la précédente
Sub test()
Dim F$, Dl%
Dl = Range("K" & Rows.Count).End(xlUp).Row
F = "=IF(RC[6]="""",""out"",IF(RC[1]=RC[3],IF(RC[4]>0,IF(RC[4]-RC[2]>0,RC[4]-RC[2],""avance""),IF(RC[7]=RC[1],RC[8]-RC[2],""report ou annul"")),""report ou annul""))"
Range("J7").Formula = F
Range("J7").AutoFill Destination:=Range("J7:J" & Dl), Type:=xlFillDefault
F = "=IF(R[-1]C[-10]=""out"",""out"",IF(OR(R[-1]C[-10]=""avance"",R[-1]C[-10]=""report ou annul""),R[-1]C[-10],IF(R[-1]C[-10]<R1C25,""moins de 30mn"",IF(R[-1]C[-10]<R4C25,""moins de 4h"",""plus de 4h""))))"
Range("W7").Formula = F
Range("W7").AutoFill Destination:=Range("W7:W" & Dl), Type:=xlFillDefault
End Sub